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ВЕОМ 


Баба с возу - кобыле легче! 
Народная мудрость 

Глава в корзину — книга легче! 
Редакторская мудрость 

В январе 2011 года в питерском издательстве Наука и техника вышла моя 
книга ОеІрНі в примерах, играх и программах. К сожалению, в ней не 
нашлось места для нескольких глав, рассказывающих о программирова¬ 
нии игр и головоломок. 

Теперь я хочу восстановить социальную справедливость и вернуть прило¬ 
жения на их историческую родину. Мне кажется, они вполне того заслужи¬ 
вают. 

Итак, здесь вы найдете подробнейшее, детальнейшее описание таких пол¬ 
нофункциональных игровых и головоломных приложений: 

Японский кроссворд - популярнейшая головоломка на раскрашивание 
квадратиков. 

Логос - замечательная логическая головоломка с точками. 

Цветные линии, Город, Молекулярный конструктор - известная во 
всем мире игра на собирание шариков, а также ее естественнонаучные ав¬ 
торские вариации. 

Жизнь - самый известный в мире клеточный автомат Джона Конвея. Иг¬ 
райте и размножайтесь! 

Флип-Флоп, ХогСате, ЗІюгіСате - превосходные игры-оборотни. 

Бокалы - фокусная головоломка-перевертыш. 

Хитори - одна из лучших современных японских головоломок, мировой 
хит! 

Почти все проекты сопровождаются исчерпывающим анализом игр и го¬ 
ловоломок. Поиск выигрышных стратегий и разработка эффективных ал¬ 
горитмов - вот главное содержание и достоинство представленного здесь 
материала, поскольку в большинстве книг по программированию читате¬ 
лям сразу же предъявляется готовое решение проблемы, из которого не¬ 
возможно (или, по крайней мере, весьма затруднительно) понять, откуда у 
него ноги растут и где собака зарыта. 


С моей точки зрения, гораздо полезнее объяснить именно процесс предва¬ 
рительных исследований проблемы, чем описать реализацию полученного 
решения на каком-либо языке программирования, так как это исключи¬ 
тельно дело техники и обычно не вызывает затруднений даже у начина¬ 
ющих программистов. 

Несмотря на обилие материала, за пределами книги осталось еще очень 
много любопытных проблем, способных серьезно заинтересовать любите¬ 
лей программирования. В ближайшие месяцы я планирую на своем сайте 
п/Сатез.де выложить несколько книг по программированию. Заходите! 


Валерий Рубанцев 


с «*«* 


Обозначения, принятые в книге: 



Дополнение, примечание 


Предложение, ненавязчивое требование 


Предупреждение 


Задание для самостоятельного решения 


Папка с исходным кодом приложения 


Исходный код почти всех проектов, описанных ниже, вы найдете на 
йѴй, прилагаемом к «бумажной» книге. Остальные исходники ждут 
вас в папке _5оигсеМіп. 

А полный набор исходных кодов находится в папке _5оигсе. 


Официальный сайт книги: ѵѵѵѵѵѵ.гѵОатез.сІе 
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Занятие 5. ДОСКОнально о сетке, или 
Занимательное полеводство 


Игры-оборотни 

В этом разделе книги речь пойдёт, разумеется, не о тех играх, в которых 
фигурируют вурдалаки, докторы хайды, вовкулаки, вервольфы и прочая 
нечисть. Всё гораздо милее и интереснее - фишки для таких игр окрашены 
в два цвета (например, с одной стороны они белые, с другой - чёрные) и 
время от времени они изменяют свой цвет на противоположный (иначе 
говоря, переворачиваются на другую сторону). 

Классическим образцом такой игры является реверси (отелло ), но эта игра 
заслуживает, конечно, гораздо большего внимания, чем мы можем уделить 
ей в данной книге. Как ни странно, все другие игры-оборотни значительно 
менее интересны и известны, поэтому мы займёмся программированием 
головоломок- оборотней. Зато мы убьём ещё парочку зайцев: закрепим на 
практике знания о компоненте Югам/Спд и продолжим совершенствовать 
мастерство изготовления кнопок из подручного материала. 


ХогОате, или Как обнулить матрицу 

Сказать по правде, так и головоломок-оборотней придумано не очень 
много. А между тем, как говаривал гроссмейстер товарищ Бендер, вертеть 
фишки - плодотворная дебютная идея\ Все известные головоломки 
отличаются друг от друга в основном правилами переворачивания фишек. 
Значит, достаточно написать программу для решения одной головоломки, 
а затем модифицировать её для всех остальных. 

А начнём мы, пожалуй, с самого известного «оборотня», который 
называется Флип-Флоп (прояснить сущность этой игры нам поможет 
англо-русский словарь, в котором вы без труда найдёте и /Ир, и /7ор). 
Придумали её на фирме Геймос (Сатоз ), которая породила множество 
весьма полезных для ума игр. Эта же головоломка использована и в игре 
Братья Пилоты. По следам полосатого слона, где Шеф и Коллега должны 
открыть сейф, похожий на холодильник, поворачивая ручки, которые 
могут занимать вертикальное и горизонтальное положение. 


В коллекции игр от Ноте Сатез Сепіег, версия 10.19 от 2000 г. 
также имеется эта игра, но в более скромном обличии (Рис. 5.1). 



Рис. 5.1. Не все простое гениально! 

Здесь предлагается все крестики заменить галочками. Больше 
ничего нового нет. 

Суть игры довольно проста: в некоем доме имеется 16 окон - по четыре на 
каждом из четырёх этажей. Некоторые окна открыты, остальные - 
закрыты. Ваша цель - открыть все окна настежь. Для этого вы можете 
поочерёдно открывать любые закрытые окна (или закрывать открытые]. 
Но - по странной прихоти городского архитектора - все другие окна на том 
же этаже и в том же подъезде изменят своё состояние на 
противоположное (Рис. 5.2]. Несмотря на «аскетизм» формулировки, 
задача не очень простая, в чём вы сами можете убедиться, похлопав 
створками окон. 



Рис. 5.2. Эх, флип-флопнем и окнами хлопнем! 


















В этой игре-головоломке нет никаких переворачивающихся фишек, но это 
ровным счётом ничего не меняет - для нас важно только то, что какие-то 
объекты могут находиться в двух «противоположных» состояниях. 
Например, окно может быть либо открыто, либо закрыто, фишка может 
быть либо чёрной, либо белой, и так далее. Совершенно естественно 
возникает желание обозначить одно состояние объекта единицей, а другое 
нулём, не различая при этом особенностей реализации этих состояний в 
конкретной программе. А игровое поле удобно описать в виде двумерного 
массива. 

Обозначив закрытые окна единицей, а открытые - нулём, мы можем 
условие задачи переписать так (Рис. 5.3]. 



Рис. 5.3. Начальная (исходная) позиция - Конечная позиция 
Сформулируем правила игры в «матричном» виде. 

На квадратном игровом поле размером 4 на 4 клетки расположены числа 1 
и 0. Задача игрока заключается в том, чтобы за наименьшее число ходов 
перевести начальную позицию на игровом поле в конечную, состоящую из 
одних нулей. Чтобы сделать ход, нужно любое из чисел на поле заменить 
противоположным, то есть единицу - нулём, а нуль - единицей. При этом 
все остальные числа в том же столбце и в той же строке также изменяют 
своё значение на противоположное. 
















Предварительные изыскания 


Все эти размышления мои 
до сих пор предварительные были 
не более как одною глупостью моею... 

Н.Лесков, Соборяне 

Можно предположить, что и эта и другие задачи в игре Флип-Флоп имеют 
решения. Очевиден ли для вас тот факт, что любую начальную позицию 
можно перевести в конечную? Если это так, то вы смело можете 
пропустить несколько следующих страниц, на которых мы попробуем 
убедиться в этом, написав небольшую программу. 

Кстати говоря, приём, с помощью которого мы будем перечислять 
позиции, очень даже пригодится вам при работе над такими играми, как 
лабиринты, сокобан или Цветные линии. 

Размеры игрового поля мы обозначим своими именами и сохраним в 
константах : 


сопзѣ 

//размеры поля: 

РОЬЕ_етіБТН=4 ; 
РОЬЕ НЕІСНТ=4; 


Опишем массив поля в глобальной переменной типа Вуіе, чтобы зря не 
расходовать память компьютера: 


ѵаг 

//массив поля: 

шазРоІе: аггау[0.. Р0ЪЕ_ИІ0ТН-1 , 0.. Р0ЪЕ_НЕІСНТ-1 ] оЕЪуЕе; 


Всего нулей и единиц на поле 16 штук, что в точности равняется числу 
битов в одном двухбайтовом слове, которое имеет тип ѴѴогб. Нам 
потребуется при расчётах и число, на единицу меньшее этого (попросту - 
15). Заведём для него константу 


//число клеток на поле-1: 

А11Се11з= РОЬЕ ИІЕТН*РОЬЕ НЕІСНТ-1; 


Легко также определить, что всего различных позиций на поле может 
быть 2 16 = 65536. Нам остаётся только закодировать каждую позицию 
двухбайтовым словом. Для этого перепишем, например, заданную 
начальную позицию в одну строку: 0010110101111000. Так как каждое из 








чисел теперь является битом, то все вместе они составляют двухбайтовое 
слово. Вы можете записать его и в 16-ричной форме - $2078. Как это 
делается, мы уже рассматривали в игре тетрис. Аналогично кодируется и 
любая другая начальная позиция, а конечная позиция с одними нулями 
как раз и описывается нулём. 

Мы договорились всякое клеточное поле представлять компонентом 
ТОгаѵѵСгід, поэтому и поместим его на свежей форме, желательно в 
верхнем левом углу, чтобы он не портил мизансцену. С установкой свойств 
сетки (Ыате = <1§Ро1е) тоже никаких затруднений не предвидится: 

СоІСоип-Ь = 4 
КсжСоип'Ь = 4 
Ое^аиІ'ЫЭгаѵгіпд = Раізе 
ГіхесіСоІз = О 
ЕіхесІКоѵгг = О 

ОпБгаѵСеІІ = сідРоІеВгамСеІІ (процедуры будут описаны ниже) 
ОпМоизеБоѵт = бдРоІеМоизебоип 


Остальные свойства вы можете установить по своему вкусу - они никак не 
влияют на работоспособность программы (только не забывайте о 
присущем вам здравом смысле). 

Как же нам подсчитать число разрешимых позиций, если мы пока ещё не 
научились толком решать такие задачи? А нужно сделать ловкий ход - 
воспользоваться ретроспективным анализом, то есть рассматривать 
позиции, начиная с заключительной (конечной). К сожалению, объём 
книги не позволяет подробно остановиться на этом приёме, добавлю 
только, что его применение бывает очень полезно при решении 
шахматных и других подобных головоломок (задач). 

Одно из самых важных понятий в ретроспективном анализе - ранг 
позиции. Это число ходов, которые нужно сделать из исходной (у нас это 
конечная) позиции в заданную. Легко сообразить, что нужная нам позиция 
с одними нулями имеет ранг 0, так как она получается «сама собой», без 
всяких ходов. Присвоим также позициям, для которых ранг неизвестен, 
значение -1, чтобы отличать их от уже ранжированных. 

Сделав ход из позиции с рангом 0, мы получим позицию с рангом 1. Так как 
этот ход может быть сделан в любую из 16 клеток, то всего существует 16 
разных «предвыигрышных позиций» и столько же «первых» ходов. 
Давайте для начала научимся делать хотя бы один ход в нашей игре- 
головоломке. 


При запуске программы мы инициализируем массив игрового поля, 
заполняя его нулями, то есть создаём конечную позицию с рангом 0: 


//СОЗДАТЬ ФОРМУ 

ргосесіиге ТРогшІ . РогтСгеаЬе (Зепсіег : ТОЬіесЬ) ; 

ѵаг і, ^: іпЬедег; 

Ьедіп 

іог і: = 0 До РОЪЕ_НЕІСНТ-1 Йо 
Еог і:= 0 До РОЬЕ_ИІЕТН-1 Йо 
//очистить клетку: 
тазРоІе [і,^] := 0; 
епй; //ЕогтСгеаЬе 


Как обычно, все изменения в массиве поля нужно отобразить на экране, 
закрасив каждую клетку поля своим цветом: та, что в массиве обозначена 
нулём, - пусть будет белой, единицей - красной (вы можете выбрать другие 
цвета): 


//ОТРИСОВАТЬ ЯЧЕЙКУ СЕТКИ 

ргосесіиге ТРостпІ . сідРоІеБгаѵСеІІ (Зепйег: ТО^есЬ; АСоІ, АКои: ІпЬе- 

дег; КесЬ: ТКесЬ; ЗЬаЬе: ТСгійБгаѵЗЬаЬе) ; 

ѵаг 

і ,з,п: іпЬедег ; 

Ьедіп 

//закрасить клетку своим цветом: 
сазе тазРоІе[АСоІ , АКоѵ] оі 

0: йдРоІе.Сапѵаз.ВгизЬ.Соіог:= сІШііЬе; 
еізе йдРоІе.Сапѵаз.ВгизЬ.Соіог:= сІКей; 
епй; 

йдРоІе.Сапѵаз.ЕіІІКесЬ (КесЬ) ; 
епй; //йдРоІеОгаѵСеІІ 


Чтобы сделать ход, нужно просто щёлкнуть (точнее - нажать кнопку 
мыши, иначе мы не сможем узнать её координаты) мышкой в любой 
клетке. С помощью метода сетки МоизеТоСеІІ мы легко определим, в какую 
клетку поля был сделан ход. Обратите внимание, что столбец и строка для 
этой клетки возвращаются в переменных АСоІ и АКоѵѵ, которые нужно 
объявить в процедуре, использующей этот метод. Чтобы иметь 
возможность вводить любую начальную позицию, а не только нулевую, мы 
нагрузим и правую кнопку мыши - нажимая её, мы просто изменяем цвет 
клетки на противоположный, не затрагивая других клеток поля. А 
настоящий ход выполняется при нажатии левой кнопки мыши. В этом 
случае мы меняем цвет всех клеток поля, которые лежат в том же столбце 
и строке, что и «щёлкнутая». Как это сделано, вы без труда сможете 
разобраться сами (в принципе, это можно сделать и иначе). Ну и наконец, 
мы обновляем поле на экране, чтобы отразить произошедшие на нём 
изменения: 






//СДЕЛАТЬ ХОД 

ргосесіиге ТРогшІ . сІдРоІеМоизеБоѵт (Зепсіег : ТОЪ^есі; ВиДДоп : ТМоизе- 

ВиДДоп; ЗДіДД: ТЗЬіДДЗДаДе; X, У: ІпДедег); 

ѵаг 

АСоі,АКои: ІпДедег; 
і, ^: ІпДедег; 

Ьедіп 

//координаты мыши: 

сідРоІе . МоизеТоСеІІ (х, у, АСоІ, АКои) ; 

ІД ззКідДД іп зЛіДД ДДеп //инвертируем цвет клетки: 

ІД тазРоіе[АСоІ, АКои]= 1 ДДеп тазРоІе[АСоІ,АКои]:= О 
еізе тазРоІе[АСоІ,АКои]:= 1 

еізе ІД ззЪеДД іп зДіДД ДДеп Ьедіп //инвертировать ряды 
Дог :):= 0 До Р0ЪЕ_НЕІСНТ-1 сіо 
Дог і: = 0 До Р0ЪЕ_ИІ0ТН-1 сіо 
ІД (і=АСоі) ог ^=АКои) ДЬеп 
//инвертировать клетку: 
тазРоІе[і, 3 ]:= аЬз(тазРоІе[і,д]—1) 

епсі; 

сідРоІе. ІпѵаІісіаДе; 
епсі; //ЬдРоІеМоизеРоип 


Запустите программу и удостоверьтесь, что она работает правильно. Вы 
даже можете сыграть в тот же Флип-Флоп, предварительно расставив 
правой кнопкой мыши красные клетки (они соответствуют, если вы 
помните, закрытым окнам]. Настоятельно рекомендую вам попробовать 
решить задачу, приведённую в начале раздела, чтобы потом у вас было с 
чем сравнивать свои успехи. 

Научившись делать ходы, мы возвращаемся к нашей задаче - подсчёту 
разрешимых позиций в этой головоломке. Теперь мы можем находить все 
16 позиций с рангом 1. Взяв любую из них, мы получим позиции с рангом 
2, сделав ход в одну из 15 клеток (конечно, нет никакого смысла ходить в 
ту же клетку, что и перед этим, иначе мы просто вернёмся на 1 ход назад). 
И вот здесь нас ждут первые неприятности: позиции начнут повторяться. 
Это следствие того, что результирующая позиция не зависит от порядка 
ходов. Вы легко можете убедиться в этом, если сходите, например, сначала 
в верхний левый угол, а затем в правый нижний, после чего вернётесь к 
чистой доске и выполните ходы в обратном порядке. Если мы будем 
считать все получающиеся позиции, то некоторые посчитаем несколько 
раз, а в таком подсчёте нет никакого смысла. Конечно, можно записывать 
все ходы и позиции для сравнения, чтобы исключить повторы, но 
позиций-то многие тысячи, так что нас ждёт удовольствие не из 
приятных! Будет правильнее поручить ведение протокола компьютеру, он 
с этим делом легко справится. Но прежде мы должны научить его 
переходить от одной позиции к другой и записывать нужную нам 
информацию. 




Для анализа головоломки нам нужно запомнить ранг каждой позиции, 
координаты клетки, в которую был сделан ход, приведший к ней, и 
предыдущую позицию, чтобы мы могли проследить всю цепочку ходов. 
Для того чтобы все данные хранились в одном месте, мы заведём 
глобальную переменную Зіаіиз, представляющую собой массив данных о 
каждой возникающей на поле позиции: 


З'Ьа'Ьиз: аггау [ѵгогсі] оі: ТЗ'ЬаІіиз; //информация о позиции на поле: 
Руре Т5-Ьа , Ьиз= Кесогсі 

Капде: іпРедег; //ранг позиции - ход, на котором 

//впервые могла возникнуть данная позиция 
Носі: ТРоіпР; //координаты клетки поля, на которую сделан ход 
Ргесі: ѵгогсі; //предыдущая позиция 

епсі; 


Алгоритм подсчёта позиций можно представить себе так. Мы знаем, что 
ранг всех позиций в начале равен -1, так как ни одна из них ещё не 
возникла на поле (кроме последней, с одними нулями - она получается 
сразу же, на «нулевом» ходу, и ранг ее равен 0]. Из нулевой позиции мы 
можем сделать 16 ходов и получить все позиции с рангом 1. Естественно, 
позиция с рангом 2 может возникнуть только в результате хода из 
позиции с рангом 1, поэтому мы перебираем все возможные позиции и, 
отыскав ещё не посчитанную (её ранг равен -1), делаем ходы во все клетки 
поля. Если в результате этого возникает новая позиция, то мы 
присваиваем ей ранг 2 и записываем всю информацию о ней. 

Точно так же мы делаем и следующие ходы (переходим к позициям 
очередного ранга) - до тех пор, пока на очередном ходе будет найдена 
хотя бы одна новая позиция. 

Хранить число найденных позиций мы будем в переменной 


//всего найдено позиций: 
АІІРог : сагсііпаі; 


Так как теперь все ходы за нас будет делать компьютер, то мы должны 
научить его этому. Результат хода зависит от расстановки «фишек» на 
поле и от координат клетки, в которую производится ход. Возникающую 
после хода позицию нам нужно вернуть в процедуру, подсчитывающую 
позиции, поэтому все премудрости выполнения хода следует поместить в 
функцию. «Ручной» ход мало чем отличается от машинного, единственное 
отличие - нужно «упаковать» единицы и нули на поле в двухбайтовое 
слово, которое однозначно описывает позицию. 






Делается это так. Находим в двухбайтовом слове и/, описывающем 
текущую позицию, те биты, которые соответствуют переворачиваемым 
столбцу и строке, и инвертируем их с помощью логической операции хог 
(это «магическое» слово и было использовано для именования 
головоломки]. Чтобы подобраться к этой позиции в слове и/, нужно 
сдвинуть единицу влево в нужную позицию логическим оператором бЫ. 
Например, если нужно инвертировать третью клетку поля, то следует 
передвинуть единицу в 13-ю позицию (нумерация битов в двухбайтовом 
слове такая: 15-14-13-12-11-10-9-8-7-6-5-4-3-2-1-0). В результате мы 
получим двоичное число 10000000000000, а операция ѵг хог 
10000000000000 как раз и инвертирует нужный бит. Во всех остальных 
тонкостях этой функции разберитесь сами: 


//выполнить ход 

^ипсЬіоп ХогВі-Ьз(х, у: ЪуЬе; ѵ: ѵгогчі) : ѵгогчі; 

//х, у - координаты хода 

/ Ы - биты поля 

ѵаг 

і, з: іпЬедег; 

Ьедіп 

Кези11::= и; 

Тог Л = 0 То РОЪЕ_НЕІСНТ-1 сіо 
Тог і: = 0 То РОЬЕ_ЫІВТН-1 сіо 
ІТ (і=х) ог ^=у) ТТеп Ьедіп 
//инвертировать клетку: 
тазРоІе[і,^]:= аЪз(тазРоІе[і,Л-1); 

КезиІТ : = КезиІТ хог (1 зЫ (А11Се11з-Р0ЪЕ_ІлГІВТН*Лі) ) ; 
епсі; 

епсі; //ХогВіТз 


Для прояснения действия этой функции, мы проведём её проверку на тех 
ходах, результаты которых легко проверить. Например, мы наизусть 
знаем все первые ходы из нулевой позиции. Давайте протестируем новую 
функцию на них. Установим на форме кнопку зЪіТезііпд, нажав на которую 
мы сможем последовательно выполнить все 16 ходов. 

Нелишним будет научиться по двухбайтовому слову ѵі/, описывающему 
поле, выводить «фишки» на экран . Для этого, начиная со старшего бита 
(соответственно, с самой первой клетки поля), мы определяем значение 
каждого бита слова и заносим его в массив поля. Закончив формирование 
массива, мы обновляем поле на экране. Обратите внимание на то, как 
выделяется старший бит слова ѵі/. 


//ПОКАЗАТЬ ПОЛЕ 

ргосесіиге ТРогшІ . ЗЬотеРоІе (те: теогсі) ; 

/ /ѵі - слово , описывающее позицию 


ѵаг 







і, з : іпЬедег; 

Ьедіп 

//занести в массив 1 или 0: 

Ьог Л = 0 1:о Р0ЪЕ_НЕІСНТ-1 сіо 

Ьог і: = 0 Ьо Р0ЬЕ_№ЮТН-1 сіо Ьедіп 

ІЬ и апЬ $8000 О 0 ЬЬеп //- клетка фигуры 
тазРоІе[і,д]:= 1 
еізе 

тазРоІе[і,Л := 0; //- клетка "фона" 

ѵі: = и зЫ 1; 
епЬ; 

//отрисовать сетку: 
сідРоІе. ІпѵаіісіаЬе; 
епЬ; //ЗЬоиРоІе 


Процедура, обрабатывающая нажатие кнопки зЪіТезЫпд-. 


//ПРОВЕРКА 

ргосесіиге ТРогхпІ. зЪЬТезЬіпдСІіск (Зепсіег: ТОЬ]есЬ) ; 

ѵаг 

і, з: іпЬедег; 
ѵі: ѵі огЬ; 

Ьедіп 

//делаем ходы: 

Ьог Л= 0 Ьо Р0ЬЕ_НЕІСНТ-1 сіо 

Ьог і: = 0 Ьо Р0ЬЕ_Ѵ\Л БТН-1 сіо Ьедіп 
ѵі := ХогВіЬз (і, з , 0) ; 

ЗЬоиРоіе( и); 

зЬоѵяпеззаде (іпЬЬозЬг(м)); 
епЬ; //Ьог і 
епсі; //зЬЬТезЬіпдСІіск 


Запустите программу и удостоверьтесь, что, по крайней мере, из нулевой 
позиции ходы выполняются верно. Вы сможете продлить себе 
удовольствие, если вместо нулевой позиции возьмёте любую другую и 
проверите её. Всё это рано или поздно убедит вас, что функция работает 
правильно в любой позиции. 

Теперь у нас есть всё необходимое для подсчёта позиций. Установите на 
форме кнопку зЪіСгеаіеЫзі и напишите в обработчике её нажатия код: 


//СОЗДАТЬ СПИСОК ПОЗИЦИЙ В МАССИВЕ 

ргосесіиге ТРостпІ . зЪЬСгеаЬеЬізЬСІіск (Зепсіег: ТОЬ ]есЬ) ; 

ѵаг 

НоЬ: іпЬедег; 

Ыд: Ьооіеап; 
і,Лк ,ѵг: ѵюгсі; 

Ьедіп 

НоЬ := 0; 

//если ранг позиции равен -1, то она ещё не возникала на поле: 










Рог і:= 0 Ро 65535 сіо 
ЗРаРиз [ і ] . гапде : = -1; 

//начальная позиция - её ранг равен 0: 

ЗРаРиз [ 0 ] . гапде : = 0; 

//инициализируем счётчик найденных позиций: 

А11Роз:= 1; 

//делаем следующие ходы: 
гереаР 

Р1д: = Еаізе; 
іпс (ЬоЬ) ; 

ІізРЬохІ. ІРетз . асісі (ІпРРозРг (ЬоЬ) ) ; 

Рог к:= 0 Ро 65535 сіо //- по всем возможным позициям 

ІР зРаРиз[к] . гапде= Носі- 1 РЬеп //- нашли позицию, возникшую 
на 

Ьедіп //предыдущем ходу 

//делаем ходы из этой позиции: 

Рог :):= 0 Ро РОЪЕ_НЕІСНТ-1 сіо 

Рог і : = 0 Ро РОЬЕ_ИІВТН-1 сіо Ьедіп 
и:= ХогВіРз (і, , к) ; 

ІР зРаРиз [и].гапде= -1 РЬеп Ьедіп //- новая позиция 

//на этом ходу была найдена по крайней мере 1 позиция: 
Р1д:= Тгие; 

//записать позицию в массив: 

ЗРаРиз[и].гапде:= ЬоЬ; 

ЗРаРиз [и] . Ьосі .х: = і; 

ЗРаРиз[и].ЬоЬ.у:= 

ЗРаРиз[и].РгеЬ:= к; 
іпс(АІІРоз) ; 
епсі; 
епсі; 
епсі; 

ипРіі Р1д= Раізе; //продолжать, пока найдена хотя бы одна 

//позиция на очередном ходу 


ЗЬоитеззаде ( ' Ьосіоѵ= '+ іпРРозРг (ЬоЬ) ) ; 
ЗЬоитеззаде('А11Роз= '+ ІпРРозРг(АІІРоз) ); 
епсі; //зЬРСгеаРеЬізРСІіск 


После всего содеянного у вас не должно возникнуть вопросов о том, как 
она работает. Поэтому запускайте программу и нажимайте кнопку. Очень 
скоро вы получите ответ на мучивший нас вопрос: все 65535 позиций 
(65536-я - это нулевая) «правильные» и для решения любой задачи 
потребуется не более 16 ходов (не удивляйтесь, что последний ход - 17-й, 
ведь он не дал ни одной позиции). Способ доказательства, конечно, 
«топорный», но зато и само доказательство железное! 

Итак, мы «напрасно» потратили время - не найдено ни одной позиции, из 
которой нельзя было бы перейти к нулевой. Правда, мы теперь точно 






знаем, что на решение задач может потребоваться от 1 до 16 ходов. А это 
уже кое-что: если вы сделали 16 ходов, а задачу так и не решили, значит, 
вы сделали лишние ходы. 

Вот ещё бы узнать, какие ходы нужно сделать, чтобы решить задачу за 
минимальное число ходов! 


А ведь у нас уже есть вся необходимая информация для этого! Она 
хранится в массиве Зіаіиз, вот только пользоваться ей не очень удобно. 
Поэтому запишем все данные на диск. Для этого установите на форме 


компонент ТЗаѵеОіаІод 
наберите код для неё: 



ТЗаѵеОіаІод 


ещё одну кнопку 


зЪіБаѵеЬізі и 


//ЗАПИСАТЬ ДАННЫЕ НА ДИСК 

ргосесіиге ТРогшІ . зЪЕЗаѵеЬіз-ЬСІіск (Зепсіег: ТОЬ ]есЬ) ; 

ѵаг 

Е: ЕехЕЕіІе; 

Еп,з: зЕгіпд; 
і А □: іпЕедег; 
м: ѵгогсі; 

Ьедіп 

//открыть файл для записи: 
заѵесііаіоді. ОеЕаиІЕЕхЕ : = 1 ЕхЕ 1 ; 

// расширение файла: 

заѵесііаіоді. ЕіІЕег : = 1 Данные (*.ЕхЕ) |*.ТХТ'; 
заѵесііаіоді. ЕіІЕегІпсіех: =1; 

//записываем файл в папку гез: 

з:=ехЕгасЕЕі1ераЕЬ(аррІісаЕіоп.ехепате)+ 1 гез\ 1 ; 
заѵесііаіоді .ІпіЕіа1Еіг:= з; 

заѵесііаіоді. ТіЕІе : = 1 Запишите данные на диск 1 ; 
//имя файла по умолчанию: 
заѵесііаіоді. Еііепате : = 1 Еетр . ЕхЕ 1 ; 
іЕ поЕ заѵесііаіоді. ЕхесиЕе ЕЬеп ехіЕ; 

//имя конечного файла: 

Еп: = заѵесііаіоді. Еііепате; 
аззідпЕНе (Е, Еп) ; 
гемгіЕе (Е) ; 

//записать данные : 

Еог і:=0 Ео 65535 сіо Ьедіп 
з : = 1 1 ; ѵі : = і ; 

Еог ] := 0 Ео 15 сіо Ьедіп 

//ставим пробел между четвёрками чисел: 
іЕ ^ тоЬ 4=0 ЕЬеп з:= з+' '; 

іЕ от апЬ $8000 <> 0 ЕЬеп //- клетка фигуры 
з:= з+'1' 
еізе 

з:= з+ ! 0 1 ; 
от: = от зЫ 1; 


//- клетка поля 








епсі; 

з:=іпЬЬозЬг(і)+ '/'+з+'. Капде= '+ іпЬЬозЬг (зЬаЬиз [і] . гапде) + ' 
Ход= '+ ІпЬЬозЬг (зЬаЬиз [ і ] . ЬюЫ. х) + 1 

1 +іпЬЬозЬг (зЬаЬиз [і] .Ъосі. у) + ' РгесІ= ' +іпЬЬозЬг (зЬаЬиз [і] .ргесі) ; 
іЬ з'Ьа'Ьиз [і] . гапдео -1 Ыіеп мгіЬеІп (Ь, з) ; 
епсі; 

//закрыть файл: 
сІозеЬіІе(Ь); 
шеззадеЬеер (0) 
епсі; //зЬЬЗаѵеЪізЬСІіск 


Запустите программу, нажмите кнопку Создать список, а затем Записать. 
Если вы не изменяли значений по умолчанию, то сможете найти файл в 
папке гез под именем іетр.іхі. Его начало выглядит так: 

0/ 0000 0000 0000 0000. Кап§е= 0 Ход= 0 0 РгесІ= 0 

1/ 0000 0000 0000 0001. Кап§е= 7 Ход= 3 3 РгесІ= 4382 

2/ 0000 0000 0000 0010. Кап§е= 7 Ход= 3 3 РгесІ= 4381 

Загрузите файл в любой текстовый редактор и найдите помощью 
команды Ріпд строку 0010 1101 0111 1000, которая представляет собой 
начальную позицию игры Флип-Флоп. Вот что вы должны увидеть: 

11640/ 0010 1101 0111 1000. Кап§е= 8 Ход= 2 1 РгесІ= 602 

Первое число - это наша позиция, записанная в 10-тичном виде. Четыре 4- 
значных числа после него - запись позиции по строкам. Затем идёт ранг 
позиции, ход (строка-колонка, отсчёт начинает с нуля) и, наконец, 
предыдущая позиция, записанная в 10-тичном виде. 

Следовательно, в исходной позиции следует выполнить ход в клетку, 
находящуюся на пересечении второй колонки (так как мы считаем с нуля, 
то физически она третья слева; если вы путаетесь в координатах, то 
измените вывод информации в процедуре зЬіЗаѵеЬЫСІіск так, чтобы самая 
левая колонка имела номер 1) и первой строки (второй сверху]. В 
результате хода получится позиция, имеющая номер 602 в списке. Найдите 
её аналогично первой строке: 

602/ 0000 0010 0101 1010. Кап§е= 7 Ход= 3 3 РгесІ= 4933 
Представим всю информацию из файла в удобном виде (Рис. 5.4). 

11640/ 0010 1101 0111 1000. Кап§е= 8 Ход1= 2 1 602 





ОеІрНі в примерах, играх и программах 
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Рис. 5.4. Делай, как я! 

Теперь мы с уверенностью можем утверждать, что для решения 
предложенной задачи достаточно восьми ходов. И мы даже знаем, какие 
ходы следует делать, но до сих пор не выяснили, почему нужно ходить так, 
а не иначе. Попытаемся справиться и с этой проблемой. 

Если вы подобным же образом проследите решение ещё нескольких задач, 
то наверняка обратите внимание на то, что ни один ход не повторяется. 
Когда это знаешь, легко найти объяснение данному «явлению»: 
повторный ход в ту же клетку просто «нейтрализует» первый ход, 
поэтому, выбросив любую пару одинаковых ходов, мы нисколько не 
изменим позицию, возникающую в результате выполнения остальных 
ходов. Отсюда слкдует вывод, что любая задача может бытъ решена не 
более чем за 16 ходов, в противном случае ходы неизбежно начнут 
повторяться. Ранее мы пришли к такому же выводу, произведя полный 
перебор позиций. Также нами было установлено, что порядок выполнения 
ходов не имеет никакого значения, поэтому существует множество 
решений нашей задачи, отличающихся только порядком ходов. 

Вот ещё бы научиться определять те клетки, в которые нужно делать 
ходы! Это, пожалуй, самое трудное в этой головоломке, здесь вам 
потребуется уже вся ваша наблюдательность и сообразительность! 

Последуем нашему принципу: не знаешь, с чего начать, начинай с конца! 
Вернёмся к заключительной позиции, состоящей из одних нулей. Какую 
бы клетку мы ни взяли, сумма чисел в соответствующей колонке и строке 
равна 0. Сделаем ход в клетку 3,0 (или в любую другую, безразлично). 
Получится такая позиция (Рис. 5.5). 
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Рис. 5.5. Первый ход 

Во всех клетках с нулями сумма чисел станет равной 2. Во всех остальных, 
кроме угловой, 4. И только в угловой клетке сумма чисел будет равна 7. 
Запомните, что именно в неё мы и сделали ход. 

Предположим, что мы сделали второй ход в одну из клеток с нулями. 
Сумма чисел в них равна двум. Значит, в соответствующей колонке и 
столбце 7-2 = 5 нулей (не посчитайте клетку на их пересечении дважды!]. 
В результате хода появятся, наоборот, 5 единиц и 2 нуля, то есть сумма 
увеличится до пяти. 

Если вы сделаете второй ход в клетку с единицей (исключая угловую, так 
как в неё второй раз ходить нельзя], то вместо четырёх единиц и трёх 
нулей возникнут 4 нуля и 3 единицы. Итак, в какую бы клетку мы ни 
сходили, сумма чисел в колонке и в строке, проходящих через неё, будет 
нечётной. Убедитесь самостоятельно, что чётность всех остальных клеток 
поля не изменяется: нечётные клетки (с нечётной суммой] так и останутся 
нечётными, а чётные (с чётной или нулевой суммой] также останутся 
чётными. 

Для клеток, которые не лежат в колонке и столбце с «сыгравшей» клеткой, 
всё объясняется просто: в результате хода изменяются 2 числа - либо 0 + 0 
1 + 1, либо 1 + 1 0 + 0, либо 1 + 0 0 + 1, поэтому сумма в чётных 

клетках изменится на чётное число (или останется прежней] и их чётность 
не изменится. Для нечётных клеток ситуация аналогичная. 

В клетках, лежащих в упомянутых колонке и строке, изменится значение 
4-х чисел. Если в колонке или строке было чётное количество единиц (или 
вообще не было], то количество нулей также было чётным. После 
выполнения хода чётность ряда не изменится. Рассуждая аналогично, 
можно доказать, что нечётный ряд также сохранит свою нечётность. Из 
этого следует, что в результате хода меняется чётность только 
единственной клетки - той, в которую сделан ход. 













Сделав третий ход, мы изменим чётность соответствующей клетки. А так 
как ходить следует исключительно в чётные клетки, то с каждым ходом на 
поле будет добавляться одна нечётная клетка. 

Задача из игры Флип-Флоп решается за 8 ходов. Вы можете легко 
проверить, что в исходной позиции ровно 8 нечётных клеток. Если мы 
теперь пойдем не от конечной позиции к начальной, а наоборот, то и 
ходить нам нужно в нечётные клетки. Тогда с каждым ходом их 
количество будет уменьшаться, и мы неминуемо придём к конечной 
позиции с одними нулями. Вот, как говорится, и весь сказ! 

Благодаря проведённому анализу головоломки мы можем для любой 
начальной позиции указать число ходов, необходимых для её решения, и 
клетки, в которые эти ходы следует выполнять. В награду за умственное 
напряжение мы можем сделать себе послабление в виде дополнительного 
кода (выделенные строки) в процедуре вывода клеток игрового поля на 
экран, которая сама будет отмечать плюсиком нечётные клетки, и нам 
останется только усердно нажимать на них. 


//ОТРИСОВАТЬ ЯЧЕЙКУ СЕТКИ 

ргосесіиге ТРогхпІ . сІдРоІеБгаѵгСеІІ (Зепсіег: ТОЬоесЬ; АСоІ, АКом: Іп1:е- 

дег; КесЬ: ТКесЬ; З'Ьа'Ье: ТСгісШгаѵЗ'Ьа'Ье) ; 

ѵаг 

і,з,п: іпСедег; 

Ьедіп 

//закрасить клетку своим цветом: 
сазе тазРоІе [АСоІ, АКои] оі 

0: сідРоІе . Сапѵаз . ВгизЪ.. Соіог : = сІШііЬе; 
еізе сідРоІе . Сапѵаз . ВгизЬ . Соіог : = сІКесі; 
епсі; 

сідРоІе . Сапѵаз . РіІІКесІ (КесЬ) ; 

//нечётный ряд? 
п:= 0 ; 

Ною 3 : = 0 Ьо РОЬЕ__НЕ IСНТ-1 сіо 
^ог і: = 0 Ьо РОЬЕ_ШБТН-1 сіо 

(і=АСо1) ог ^=АКоѵ) Ціеп Ьедіп 
п:=п+шазРо1е[і,Л; 
епсі; 

//нечётный - вывести плюсик : 
о<і<і(п) Ыіеп 

иі-ЬЬ КесЬ, сідРоІе. Сапѵаз сіо 

■ЬехЬгесЬ (КесЬ, ІеіЫ- (гідЬѢ-Іе^'Ь-'Ьех'Ьѵісі'Ыі (' + ')) сііѵ 2 , 

•Ьор+ (ЬоЬЬош-'Ьор-'Ьех'ЫіеідІі'Ь (' + ')) сііѵ 2 , ' + ') ; 

епсі; //сідРоІеЕгаиСеІІ 




Запустите программу и правой кнопкой мыши введите исходную позицию. 
Картина, которую вы увидите, бесспорно, порадует настоящего ценителя 
головоломок (Рис. 5.6). 



Рис. 5.6. Начальная позиция 

Обидно только за игру Флип-Флоп - она пала жертвой нашего 
любопытства, в ней больше нет тайн для пытливого ума. А ведь хорошая 
игра, жаль с ней так быстро расставаться, поэтому давайте продлим 
очарованье и вдохнём в неё новую жизнь, усложнив последнюю себе тем, 
что чуточку подправим условия игры - в качестве конечной позиции 
возьмём не «завсегдашнюю» нулевую, а произвольную. Вы уже догадались, 
как нужно играть в этом случае? 

Поскольку мы умеем любую позицию сводить к нулевой, то можно 
поступить так: от начальной позиции перейти к нулевой и от конечной 
также перейти к нулевой. Объединив все ходы, мы получим решение 
задачи в целом. Понятно, что решение некоторых задач при такой 
стратегии будет не самым коротким: если одна из позиций требует для 
«обнуления», например, 9 ходов, а вторая 10, то в сумме придётся 
затратить 19 ходов, что больше 16. Стало быть, мы сумеем из любой 
начальной позиции перейти в любую конечную, но при этом сделаем 
лишние ходы. Как же от них избавиться? Самые умные читатели могут 
отдохнуть, а мы пока составим процедуру для перехода от одной позиции 
к другой. 

Установите на форме кнопку зЪіРегеНосІ, а в процедуре-обработчике 
напишите код, он очень простой, так как весь поиск кратчайшего перехода 
будет осуществляться в отдельной процедуре Зоіиііоп. При её вызове 
нужно указать начальную и конечную позиции (в 10-тичном или 16- 
ричном виде), а также минимальное число ходов (если вы его не знаете, 
просто подбирайте, пока не найдёте самого короткого решения). 


ргосесіиге ТРогхпІ . зЫРегеІіосіСІіск (Зепсіег: ТОЬ^есЬ) ; 

Ьедіп 

//5о1и1:іоп (0, $е997, 2); 

//ЗоІи'Ьіоп (0, $1886, 3) ; 

//Зоіи^іоп(63897, 39409, 11); 

//ЗоІи'Ьіоп (0, 19, 5); 















//ЗоІиЬіоп (63897, 112, 5) ; 
//ЗоІиЬіоп (112, 39409, 6) ; 
//ЗоІиЬіоп ($ЬЬЬЬ, 0, 16); 

ЗоІи'Ьіоп (11640, 0, 16); 
епсі; / / зЬЬРегеПоДСІіск 


Процедуру поиска решения мы подробно рассматривать не будем - если 
она вас интересует, то постарайтесь разобраться в ней самостоятельно. 
Проследите решение нескольких задач и найдите причину, по которой 
предложенный нами ранее приём давал лишние ходы. Если вам не удастся 
справиться с этой проблемой, то читайте следующий раздел этой главы, в 
ней туман над Флип-Флопом рассеется окончательно. 


//НАЙТИ ПЕРЕХОД ОТ ОДНОЙ ПОЗИЦИИ К ДРУГОЙ 

ргосесіиге ТРогхпІ . ЗоІиЬіоп (ѵЮ , ѵі: ѵгогЫ; пЗЬер: іпЬедег); 

//и0 - начальная позиция, 

//и 1 - конечная позиция, 

//пЗЬер2 - количество шагов (ходов) 

ІаЪеІ 

пехЬНоД, пехЬСеІІ; 
ѵаг 

НоД: іпЬедег; 

пСеІІз: іпЬедег; 

пСеІІ: аггау[0..99] оЬ іпЬедег; 

Роз: аггау[0..99] оЬ иогД; 

Моѵе: аггау[0..99] оЬ іпЬедег; 
х, у: ЪуЬе; 
и: иогД; 

ргосеДиге ЗаѵеРоз; 
ѵаг 

и: иогД; 
і, ^: іпЬедег; 
х, у: іпЬедег; 
з: зЬгіпд; 

Ьедіп 

Ьог і:= 1 Ьо НоД До Ьедіп 
з: = ' '; и:=Роз [ і]; 

Ьог ^:= 0 Ьо 15 До Ьедіп 

ІЬ и апД $8000 о 0 Ыіеп //- клетка фигуры 
з:= з+'1' 
еізе 

з:= з+'0'; //- клетка "фона" 

и:= и зЫ 1; 
епД; 

ІізЬЬохІ.іЬетз.аДД('НоД= '+ іпЬЬозЬг(і)+ ' Роз= '+ з) ; 
х:= Моѵе[і] тоД 4; у:= Моѵе[і] Діѵ 4; 

ІізЬЬохІ.іЬетз.аДД('Моѵе= '+ іпЬЬозЬг(х)+ ' ' +іпЬЬозЬг(у)); 

ІізЬЬохІ.іЬетз.аДД(''); 
епД; 
епД; 







Ьедіп 

пСе11з:= 16; 

Нос1:= 0; Роз[0]:= м0; пСе11[0]:= -1; Моѵе[0]:= -1; 
пехЬНой: 

Іпс(НосІ); пСеІІ [Ной] := пСеІІ [Носі-1 ] ; Роз [Ной] := Роз [Ной-1]; 
пехЬСеІІ: 

іпс(пСеІІ[Ной]); 

іі пСеІІ [Ной] > пСеІІз ЬИеп Ьедіп //- прошли всё поле 
йес(Ной); 

іі Ной< 0 ЬЬеп Ьедіп 
ЗИомМеззаде ( ’ ОК' ) ; 
ехіЬ; 
епй; 

СоЬо пехЬСеІІ 
епй; 

х:= пСеІІ[Ной] той 4; у:= пСеІІ[Ной] йіѵ 4; 
м: = ХогВіЬз (х, у. Роз [Ной-1]); 

Роз [Ной]:= ѵг; 

//запомнить ход: 

Моѵе[Ной]:= пСеІІ[Ной]; 

іі м = ѵгі ЬНеп Ьедіп //- нашли! 
заѵероз; 

ЗЬошРоІе (м); 
ехіЬ; 
епй; 

іі Ной< пЗЬер ЬНеп доЬо ЫехЬНой; 

доЬо пехЬСеІІ 
епй; //ЗоІиЬіоп 


Напоследок - форма со всеми принадлежностями для успешной работы 
(Рис. 5.7). 



Рис. 5.7. Немудреный интерфейс! 















































































































Некоторые читатели могут упрекнуть автора в бесполезной трате 
времени и бумаги, ведь можно было сразу же перейти к програм¬ 
мированию головоломки, а не демонстрировать «муки творче¬ 
ства». Действительно, обычно в книгах приводятся готовые, отла¬ 
женные программы, которые ясно свидетельствуют о недюжинных 
умственных способностях их авторов и создают у неразумных «чай¬ 
ников» превратное впечатление, что есть этакие «профессионалы», 
которые пишут программы в один присест, без напряжения и оши¬ 
бок, и «любители», мучающиеся над каждой строкой исходного ко¬ 
да. 


На самом-то деле умные мысли посещают и умных людей отнюдь 
не сразу (иначе компьютеры придумали бы ещё во времена Архи¬ 
меда) и невозможны без предварительных «глупостей» и ошибок. 
Так как для вас, вероятно, гораздо важнее научиться писать соб¬ 
ственные программы, чем переписывать чужие, то я и рискнул по¬ 
казать, какими окольными путями приходится подбираться к хоро¬ 
шим решениям и алгоритмам. Считайте, что вся проделанная нами 
работа - это черновик, который дальше мы будем использовать для 
создания «настоящей программы». (В скобках следует заметить, что 
и «черновик» тоже изрядно «отредактирован»: из него удалены 
очевидные заблуждения, опечатки и тупиковые мысли, так что не 
удивляйтесь, если ваши предварительные изыскания отнимут у вас 
гораздо больше времени и сил.) 

Естественно, невозможно все программы разбирать так подробно, 
для этой мы сделали исключение - для примера, поэтому всегда 
имейте в виду, что прежде чем браться за написание игры, нужно 
предварительно отладить наиболее важные места вашей будущей 
программы. 


Игра как она есть 

Если для игры Флип-Флоп достаточно одного игрового поля, так как 
конечная позиция не изменяется и очень проста, то в ХогСате ситуация 
осложняется тем, что конечная позиция в каждой партии другая. 
Естественно, держать в голове конечную позицию, когда нужно думать о 
выборе ходов, весьма затруднительно, поэтому для нашей игры мы 
сделаем два поля - с начальной позицией (размером побольше) и с 
конечной позицией (размером поменьше; вы можете сделать оба поля и 
равной величины, но в этом случае возможна неразбериха). 


Поскольку с игрой Флип-Флоп мы досконально разобрались, то будет 
довольно скучно писать программу, которой нам пользоваться будет не 
интересно. Поэтому мы предусмотрим в нашей игре возможность 
изменять размеры поля - или вы считаете, что справитесь с головоломкой 
на любом поле? Достаточно иметь поля таких размеров: 4x4 (для 
начинающих), 5x5, 6x6, 7x7 (для головастых). Вы можете сделать поля 
ещё масштабнее, но ничего нового в игре от этого не появится. 

Итак, откроем новый проект ХогСате и займёмся формой - . 

ЮісІѢЪ = 397 
НеідЬѢѢ = 312 

Вогчіегісопз = [ЪіЗузбетМепи, ЬіМіпітіге] 

Сарбіоп = ' ХогСате' 

Ісоп - нарисуйте подходящий значок 
РорирМегш = РорирМепиІ - добавим дальше 
РозіРіоп = роБезкРорСепбег 

ОпСІозе = РогтСІозе - процедуры-обработчики. 

ОпСгеаРе = РогтСгеаРе 

Затем, оставив сверху место для кнопок, расположим на форме две сетки - 
йдРоІе и йдРоІе2. В целом форма со всеми компонентами должна выглядеть 
так (Рис. 5.8). 



Рис. 5.8. Двупольная форма! 
Свойства сетки сІдРоІе - . 


Ье^Р = О 
Тор =36 
Ш.<4РЬ = 24 9 



































































НеідЬ'Ь = 24 9 

Сигзог = сгНапсіРоіпІ: («ручка» - нужно нажимать фишки) 

СоІСоипѣ = 4 

КоѵСоип'Ь = 4 (запускаем игру в режиме «Флип-Флоп») 

Бе^аиІ'ЬСоІШ.сіЫі =60 

Бе^аиІ'ЕКоѵгНеідЬ'Е = 60 (размеры клеток поля достаточно боль¬ 
шие, чтобы фишки выглядели «эффектно») 

Бе^аиІ'ЕБгаѵгіпд = Еаізе 
ЕіхесіСоІз = 0 
ЕіхесІКсжг = 0 

СгісІЬіпеЭДі<±1:Ъ. = 0 (разметка сетки не нужна, её заменят линии 
на рисунках с фишками) 

ОрЪіопз = [] 

ЗсгоІІВагз = ззЫопе 
ОпБгаѵСеІІ = бдРоІебгаиСеІІ 
ОпМоизеБоѵт = сідРоІеМоизеБоѵт 

Свойства сетки <ідРоІе2\ 

Ье^ =260 

Тор = 36 
Ш-сЮі = 12 9 
НеідЬѢ = 129 
Сигзог = сгАггои 
СоЛ-Соип! = 4 
КоздСоипѣ = 4 
Бе^аиІЪСоІШ-Сіиі =30 
Бе^аиІ'ЬНоѵгНеідЬѢ = 30 
Бе^аиІѢБгаѵгіпд = Еаізе 
ЕіхесіСоІз = 0 
ЕіхесІКоѵгг = 0 
бгісІЬіпеШ.сі'Ыі = 0 
Орііопз = [ ] 

ЗсгоІІВагз = ззЫопе 
ОпБгаѵСеІІ = сідРо1е2РгаиСе11 
ОпМоизеБоѵт = сідРо1е2МоизеБоѵт 

Для удобства введём несколько глобальных констант : 


сопзб 

//макс, размеры поля: 
МАХ_РОЪЕ_Ѵ\ГІРТН= 7; 
МАХ_Р0ЬЕ_НЕІ6НТ= 7; 

//цвет фишек: 

ШІТЕ=0; 

ВЬАСК=1; 


Хотя цвета фишек мы обозначили как «белый» и «чёрный», на самом деле 
они могут иметь любой цвет, важно только помнить, что чёрные фишки - 
это закрытые окна, а белые - открытые. Поэтому игра Флип-Флоп в 
варианте с фишками должна иметь конечную позицию, состоящую только 




из белых фишек. Если у вас есть страстное желание украсить игру, то 
вместо фишек вы можете взять произвольные картинки (хотя бы и окна), 
на самой игре это никак не отразится. Вот только надо ли отвлекать 
игрока совершенно ненужными визуальными и звуковыми эффектами - 
это БОЛЬШОЙ вопрос! 

Как обычно, для хранения информации о фишках на поле мы заведём два 
глобальных массива : 


Ъуре 

ТРо1е= аггау[0.. МАХ_РОЬЕ_ИІОТН-1 , 0.. МАХ_РОЬЕ_НЕІСНТ-1 ] о± ЪуЕе; 
ѵаг 

//поля: 

тазРоІе , шазРо!е2: ТРоІе ; 


Нам обязательно понадобится в игре метка ІЫНосі, чтобы показывать 
число сделанных при решении головоломки ходов: 

ЬеЕѢ = 268 
Тор =176 
Ш-сИДі =86 
НеідЬѢ = 29 
Сарѣіоп = 'Ход - 0' 

Ропі.СоІог = сІКесі 
Ропѣ.НеідЫ: = -24 
Ропѣ.З'ЬуІе = [ЕзВоІсІ] 

РагепіРопі. = Гаізе 
ОпСІіск = ІЫНосіСІіск 

Иногда бывает полезно начать отсчёт ходов с какой-то определённой 
позиции, для этого достаточно щёлкнутъ на метке: 


//обнулить ходы 

ргосесіиге ТРогшІ. ІЫНосіСІіск (Зепсіег: ТОЪ^есѣ) ; 
Ьедіп 

Но<і:= 0; 

ІЫНосі. Сарѣіоп: = ' Ход - 0 ' ; 

еп<1; / / ІЫНосіСІіск 


При поиске решения также очень важно уметь сохранять и 
восстанавливать позицию на поле, а также переходить к предыдущему 
или последующему шагу в цепочке ходов. Для хранения текущей позиции 
мы введём переменную Метогу. 


ѣуре 

ТРо1е= аггау[0. .МАХ_РОЬЕ_МІБТН-1, 0. .МАХ_РОЪЕ_НЕІСНТ-1 ] о! ЪуЕе; 
ТМетогу= Кесогсі 
//номер хода: 

Ьосі: іп!:едег; 









//размеры полей: 
м, Ь: іпізедег; 

//позиция на полях: 
РозЬ, РозК: ТРоІе; 
епсі; 

ѵаг 

//поля: 

тазРоІе, тазРо1е2: ТРоІе; 
Мешогу: ТМешогу; 


Чтобы не загромождать форму кнопками, добавим в проект всплывающее 


Ц ТРорирМепи ■ 


меню РорирМепиІ (компонент 


), которое будет появляться при 
нажимании правой кнопки мыши. Так оно выглядит в Редакторе меню 
(Рис. 5.9, слева] и в игре (Рис. 5.9, справа]. 


Рогті.Рорир/Лепііі |Щ|□ 


Запомнить позицию 

СІГІ+І 

Восстановить позицию 

СІГІ-Ю 

Ход назад 

СІгІ-ИІ 

Ход вперёд 

СігІ+Р 

■4x4 

Р4 

5 х 5 

Р5 

6x6 

Р6 

7x7 

Р7 

■ Полный переворот 

СІгІ+Р 

Переход 

СігІ+Р 

■ Подсказки 

СІГІ+Н 

Правила 

СІгІ+Р 

1.I 


^ Запомнить позицию 

СігІ+І 

0Г 1 Восстановить позицию 

ОгІ+О 

Ход назад 

сы-ш 

Ход вперёд 

СігІ+Р 

:::: 4x4 

Р4 

ііііі 5 х 5 

Р5 

6x6 

Р6 

7x7 

Р7 

Щ Полный переворот 

СігІ+Р 

Щ Переход 

СЫ+Р 

1 1 Подсказки 

СІгІ+Н 

^ Правила 

СігІ+Р 


Рис. 5.9. Всплывающее меню 

Лучше немного забежать вперёд и сразу создать все пункты меню, чем 
много раз возвращаться в Редактор меню и добавлять по одному пункту. 

Чтобы каждый пункт меню предварял значок, загрузите в свойство ВіСтар 
подходящую картинку. Часть из них вы можете взять из наших 
предыдущих программ, а другие нарисовать самостоятельно. 








































Первый пункт меню - тіМетогуІп - отвечает за сохранение в памяти 
информации о текущей позиции на игровом поле: 

Сзр1іоп= 'Запомнить позицию' 

31іог1Си1= Сігі+І 
ОпСІіск = тіМетогуІпСІіск 


//ЗАПОМНИТЬ ПОЗИЦИЮ 

ргосесіиге ТРогтІ. Метогуіп; 

Ьедіп 

Метогу. іюсі: = Носі; 

Метогу. ■»: = сідРоІе. СоІСоипЬ; 

Метогу. к := сідРоІе. КомСоипІ; 

Метогу.РозЬ:= тазРоІе; 

Метогу.РозК:= тазРо1е2; 
епсі; //Метогуіп 

ргосесіиге ТРогтІ .тіМетогуІпСІіск (Зепсіег: ТОкдес!) ; 
Ьедіп 

іі Сате51а1е= дзЗоІиЬіоп ккеп ехіЬ; 

Метогуіп; 

епсі; //тіМетогуІпСІіск 


Раз уж появилось упоминание о статусе игры, то следует рассказать о 
нём. Введём новый тип 


103111631316= (дзЭДаіІ, дзЗоІиІіоп) ; 


и переменную этого типа 


//состояние программы: 
СашеЗІзІе: ТСате51а1е= дзИаіІ; 


В первом состоянии программа находится, когда ждёт ваших действий 
(выполнения хода, нажатия на кнопку, выбора пункта меню). Во втором - 
когда она ищет решение головоломки. Ясно, что в этом случае нужно 
отвергнуть все другие действия в программе (кроме прекращения самого 
поиска, иначе может возникнуть ситуация, когда нам придётся завершать 
программу негуманным способом). 

Второй пункт меню - тіМетогуОиі - выполняет противоположную 
операцию - восстанавливает позиции на обоих полях: 

Сзрііоп = 'Восстановить позицию' 

ЗЬогІСиІ = СІГІ+0 

ОпСІіск = тіМетогуОиІСІіск 








Так как размеры полей могли быть изменены, то нужно вывести новые 
поля, отметить в меню их действительные размеры и переместить форму 
в центр экрана (размеры формы будут автоматически подгоняться под 
размеры полей, поэтому ее размеры зависят от размеров сеток]: 


//ВОССТАНОВИТЬ ЗАПОМНЕННУЮ ПОЗИЦИЮ 

ргосесіиге ТРогтІ . тіМетогуОиЬСІіск (Зепсіег: ТОЬіесЬ) ; 

Ьедіп 

ІЬ СатеЗЬаЬе= дзЗоіиЬіоп ЬЬеп ехіЬ; 

мі1:Ь Метогу сіо Ьедіп 
Ргераге (сідРоІе, и, П) ; 

Ргераге(ЬдРо1е2, и, П) ; 
тазРо1е:= РозЬ; 
тазРо1е2:= РозК; 
сазе и оЬ 

4: ті4х4. СЬескеЬ := Тгие; 

5: ті5х5 . СПескесі: = Тгие; 

6: ті бхб . СЬескеЬ : = Тгие; 

7: ті7х7. СЬескеЬ := Тгие; 
епЬ; 

Ьогті.РозіЬіоп:= роЗсгеепСепЬег ; 
епсі; 

ЬдРоіе. ІпѵаііЬаЬе; 
сідРо1е2 . ІпѵаІісіаЬе; 

Носі:= Метогу.ЬоЬ; 

ІЫНосі. СарЬіоп : = 'Ход - ' + іпЬЬозЬг (ЬоЬ) ; 
епсі; //тіМетогуОиЬСІіск 


Размеры полей задаются в процедуре Ргераге: 


//УСТАНОВИТЬ РАЗМЕР ЗАДАННОГО ПОЛЯ 

ргосесіиге ТРогтІ. Ргераге (Роіе : ТОгаиСгіЬ; СоІСоипЬ, КоиСоипЬ: іп- 
Ьедег); 

ѵаг и,Ь, іи: іпЬедег; 

Ьедіп 

//размер клетки в пикселях: 
и: = Роіе. ОеЬаиІЬСоІІлГіЬЬЬ; 

Ь: = Роіе.ВеЬаиІЬКоиНеідЬЬ; 

//толщина линий : 

1 и: = Роіе. СгіЬЬіпеІлІіЬЬЬ; 

//размеры игрового поля в клетках: 

Роіе.СоІСоипЬ:= СоІСоипЬ; 

Роіе.КоиСоипЬ : = КоиСоипЬ; 

//размеры в пикселях видимой части игрового поля: 

Роіе . ІлГіЬЬЬ: = 3 + (и + Іи)* СоІСоипЬ+1; 

Роіе. НеідЬЬ: = 3 + (Ь + Іи)* КоиСоипЬ+1; 








іі: ро1е= сідРо1е2 ккеп 

роіе . ЪеЫ : = сідРоІе . ЪеЫ+бдРоЗ-е . ЫсЩЬ+К) ; 

//установить метку, показывающую число ходов: 
ІЫНосі. ЪеЫ : = сідРоІе . ЪеЫ+сІдРоІе . ЫсЩЬ+К) ; 
1ЫНосі.Тор:= сідРо1е2 . Тор+ сідРо1е2 . Неідкб+ІО; 

//обнулить ходы: 

Носі: =0 ; 

ІЫНосі. Сарбіоп : = 'Ход - 0'; 
епб; //Ргераге 


Так как большинство действий одинаково для обоих полей, то для 
изменения их размеров мы используем одну процедуру. Нужно только 
учесть, что горизонтальные координаты полей, безусловно, отличаются. 

Следующие два пункта меню мы пока пропустим, потому что их действие 
сейчас трудно объяснить. А далее в меню идут пункты, позволяющие 
выбрать один из доступных размеров полей. По умолчанию игровое поле 
имеет такие же размеры, как и в игре Флип-Флоп, то есть 4 на 4 клетки. Это 
естественно - неискушённый пользователь должен начинать с более 
лёгких заданий. 

Пункт ті4х4 устанавливает минимальные размеры полей: 

Тад = 4 

Сарііоп = '4x4' 

СЬескесі = Тгие (размер по умолчанию) 

бгоиріпсіех = 1 

Е.асііоІ'Ьет = Тгие (одновременно можно выбрать только один 
размер поля) 

ЗЦогѣСиѣ = Р4 
ОпСІіск = ші4х4С1іск 

Аналогично действуют и другие пункты из этой группы (обратите 
внимание, что значение свойства Сгоиріпдех у них равно 1, а КадіоІСет = 
Тгие; это сделано для того, чтобы при выборе одного из пунктов все 
остальные выключались). 

ті5х5 : 

Тад = 5 

Сарііоп = '5x5' 

Сгоиріпсіех = 1 
Касііоі'кет = Тгие 
ЗЬог'ЬСи'Ь = Г5 
ОпСІіск = ті4х4С1іск 


тібхб : 


Тад = б 





Сарііоп = ' б х б ' 
бгоиріпсіех = 1 
КасІіоІ'Ьет = Тгие 
ЗНог-ЬСиЕ. = Гб 
ОпСІіск = ті4х4С1іск 

ті7х7: 

Тад = 7 

Сарііоп = '7x7' 
бгоиріпсіех = 1 
КасНоІѣет = Тгие 
ЗЬог'ЬСи'Ь = Г7 
ОпСІіск = ті4х4С1іск 

Выбор всех пунктов меню мы будем обрабатывать в одной и той же 
процедуре ті4х4СІіск. А чтобы узнать, какие размеры полей нужно 
установить, присвоим свойству Тад соответствующее значение: 


//ИЗМЕНИТЬ РАЗМЕРЫ ПОЛЕЙ 

ргосесіиге ТРогшІ . ші4х4С1іск (Зепсіег: ТОЬіесЬ) ; 

ѵаг 

і, п: іпкедег; 

Ьедіп 

іЕ Сате8ЕаЕе= дзЗоІиЕіоп Екеп ехіЕ; 

//показать пункт меню как выбранный: 

(Зепсіег аз ТМепиІЕет) .Скескесі: = Тгие; 

//размеры поля: 

п:= (Зепсіег аз ТМепиІЕет) .Тад; 

//новое задание: 

сідРоІе . КоиСоипк : = п; сідРоІе . СоІСоипк : = п; 
сідРо1е2 . КоиСоипк : = п; сідРо1е2 . СоІСоипк : = п; 
ЫеиРІау; 

//показать на экране: 

Ргераге (сідРоІе, п, п) ; 

Ргераге (сідРо1е2, п, п) ; 
сідРоІе. ІпѵаІісіа'Ье; 
сідРо1е2 . ІпѵаІісіаЬе; 

Еогті.РозіЕіоп:= роЗсгеепСепбег ; 
епсі; //ті4х4С1іск 


После изменения размера полей текущее задание теряет всякий смысл, 
поэтому оба поля просто заполняются фишками одного цвета. О том, как 
начать новую игру, будет рассказано далее. 

В игре Флип-Флоп требуется все чёрные фишки (ну хорошо, окна!) 
перевернуть на белую сторону. Для нас эта задача оказалась слишком 




простои, поэтому мы придумали усложненный вариант игры, в котором 
нужно перейти от одной «ненулевой» позиции к другой. Сохраним обе 
разновидности игры в нашей программе. Опишем их в новом типе ТСате: 


//вид игры: 

ТСате= (РиІІЗаІДо, Регекосі) ; 


и заведём новую переменную для хранения выбранного вида игры: 


ѵаг 

СатеЗ'Ьа'Ье: ТСатеЗДаке= дзИаік; 

Саше: ТСате; 


По умолчанию мы будем играть в более простой вариант: 

тіЕиІІЗаІ'Ьо : 

Тад = О 

Сар'Ьіоп = 1 Полный переворот 1 
СЬескесі = Тгие (игра по умолчанию) 

Сгоиріпсіех = 2 
КасііоІ'Ьет = Тгие 
ЗЬогЬСиЬ = СЬгІ+Г 
ОпСІіск = тіГиІІЗаІЬоСІіск 

тіРегеЬосІ: 

Тад = 1 

СарЬіоп = ' Переход ' 

Сгоиріпсіех = 2 
КасііоІ'Ьет = Тгие 
ЗЬогЬСиЬ = СЬгІ+Р 
ОпСІіск = тіРи115а11:оС1іск 

Выбор пункта меню в этом случае осуществляется точно так же, как и при 
изменении размеров поля: 


//ВЫБРАТЬ ВИД ИГРЫ 

ргосесіиге ТРогшІ .шіЕиІІЗаІ'ЬоСІіск (Зепсіег : ТОЬзеск); 
Ьедіп 

іГ СатеЗкаке= дзЗоІикіоп ккеп ехік; 

(Зепсіег аз ТМепиІкет) .СЬескесі:= Тгие; 

// вид игры: 

Сате:= ТСате ( (Зепсіег аз ТМепиІкет) . Тад) ; 

//начать новую игру: 

ЫеиРІау; 

епсі; //тіРиІІЗаІкоСІіск 








Управившись с меню, мы возвращаемся к началу программы. При запуске 
приложения в процедуре создания формы мы устанавливаем её свойство 
АиіоБіге в Тгие, чтобы форма подгонялась под размеры полей. Это позволит 
нам избежать «пустот» на форме, когда размеры полей 4x4 клетки, а 
форма рассчитана на поля максимального размера. 


//СОЗДАТЬ ФОРМУ 

ргосесіиге ТРогтІ . ЕогтСгеаТе (Зепсіег : ТОЬ^есЬ); 

Ьедіп 

//подстраиваем величину формы под размеры сеток: 
АиТо5іге:= Тгие; 

//установить размеры полей по умолчанию: 

Ргераге (сідРоІе, 4, 4); 

Ргераге (сідРо1е2 , 4, 4); 

//начать новую игру: 

ЫеиРІау; 

епсі; //РогтСгеаТе 


Вся подготовка к новой игре производится в процедуре ЫеѵѵРІау. Здесь мы 
должны обнулить число ходов, а затем выставить фишки на игровом поле 
случайным образом, но так, чтобы задача не получилась слишком простой: 


гереаТ 
Капсіоті ге ; 

//выставить на поле фишки случайным образом: 

Тог ^:= 0 То сідРоІе . КоѵСоипТ-1 сіо 
Тог і:= 0 То сідРоІе . СоІСоипТ-1 сіо 
тазРоІе [ і, з ] : = Капсіот(2); 

//подсчитать число нечётных рядов: 
пгоѵ:=0; 

Тог ^1: = 0 То сідРоІе. КоиСоипТ-1 сіо 

Тог і1:= 0 То сідРоІе. СоІСоипТ-1 сіо Ьедіп 
п : = 0; 

Тог ;]:= 0 То сідРоІе. КоиСоипТ-1 сіо 
Тог і:= 0 То сідРоІе. СоІСоипТ-1 сіо 
іТ (і=і1) ог {□=□1) ТЬеп 
п:=п+тазРо1е[і,д]; 
іТ осісЦп) Тііеп іпс (пгоѵ) ; 
епсі; 

ипТіі пгом>5; //повторять, пока не будет больше 5 
сідРоІе. ІпѵаІісіаТе; 


На поле-образец мы выставляем фишки в зависимости от вида игры. Если 
это Флип-Флоп, то мы просто ставим «белые» фишки, если Хог - поступаем 
аналогично первому полю: 






//выставить на поле фишки случайным образом: 
бог 0 бо бдРоіе2 .КоиСоипб-1 сіо 

бог і:= 0 бо сідРо1е2 . Со1Соипб-1 сіо 
шазРо!е2[ і , 3 ]:= Капбот(2); 


Казалось бы, всё верно - ан нет: до этого мы занимались только полем 4 на 
4 клетки, на котором все позиции разрешимы. Мы распространили наши 
познания на поля любых размеров и ошиблись - например, на поле 5x5 
клеток некоторые позиции нельзя «обнулить». Разговор об этом пойдет 
дальше, но, чтобы не возвращаться к этой процедуре, мы изменим 
алгоритм выбора случайной позиции так, чтобы любая игровая позиция 
была решаемой. Сделать это достаточно просто - нужно выполнить 
несколько ходов из нулевой позиции. Ясно, что, поменяв порядок ходов на 
обратный, мы всегда сможем из заданной позиции вернуться к нулевой. 
Причём размер поля в данном случае не имеет никакого значения: 


//ПОДГОТОВКА К НОВОЙ ИГРЕ 

ргосесіиге ТРогхпІ . ЫеѵРІау ; 

ѵаг 

і, ^: іпбедег; 
х, у: іпбедег; 

Ьедіп 

//обнулить число ходов: 

Ноб:= 0; 

ІЫНоб. Сарбіоп : = 'Ход - 0'; 

//сделать случайные ходы: 
гапботіге; 

//очистить левое поле: 
бог Л = 0 бо бдРоІе.КоиСоипб-1 бо 
бог і:= 0 бо бдРоІе.СоІСоипб-1 бо 
тазРоІе[і,Л:= ННІТЕ; 

//сделать случайные ходы: 

бог і:= 1 бо 7 + гапбот (бдРоІе.Со1Соипб*бдРо1е.КоиСоипб+1-7) бо 
Ьедіп 

х:= Капбот (бдРоІе.СоІСоипб); у:= Капбот (бдРоІе.КоиСоипб); 
тазРо1е:= ОоМоѵе(тазРоІе, х, у); 
епб; 

бдРоІе.Іпѵаіібабе; 

//задать поле-образец: 

іб Сате= ЕиІІЗаІбо ббеп Ьедіп //- полный переворот 
//выставить на поле зелёные фишки: 
бог ^:= 0 бо бдРо1е2.КоиСоипб-1 бо 
бог і:= 0 бо бдРоіе2.СоІСоипб-1 бо 
шазРоіе2[і,Л := ИНІТЕ 

епб 

еізе Ьедіп //- переход к образцу 
//сделать случайные ходы: 






іог і:= 1 Ьо 7 + гапсіот (сідРо1е2 . Со1СоипЬ*сідРо1е2 .КоѵСоипЬ+1-7) 
сіо Ьедіп 

х:= Капсіот (ЬдРо1е2 . СоІСоипЬ) ; у:= Капсіот (ЬдРо1е2 . КоѵСоипЬ) ; 
тазРо1е2:= БоМоѵе(тазРо1е2, х, у); 
епсі; 
епсі; 

сідРо1е2 . ІпѵаІісіаЬе; 

//запомнить начальную позицию: 

Метогуіп; 
епсі; //ЫеѵРІау 


Чтобы выполнить ход, мы поступаем как и раньше, но теперь нам не 
удастся хранить информацию о поле в двухбайтовом слове, так как поля 
могут содержать более 16 клеток. Как вы помните, для этого мы ввели 
специальный тип ТРоІе. Расход памяти под хранение информации о полях 
увеличился, но зато не нужно считать биты! 


//выполнить ход 

^ипсЬіоп ТРогшІ . БоМоѵе (агг: ТРоІе; х, у: іпЬедег) : ТРоІе; 
ѵаг і: іпЬедег; 

Ьедіп 

//инвертировать заданную клетку: 
агг[х,у]:= аЬз (агг [х, у]-1) ; 

//инвертировать ряды: 

Ьог і:= 0 Ьо сідРоІе.КоиСоипЬ-1 сіо //- вертикальный 
агг[х,і]:= 1- агг[х,і]; 

Ьог і:= 0 Ьо сідРоІе. СоІСоипЬ-1 сіо //- горизонтальный 
агг[і,у]:= 1- агг[і,у]; 
гези1Ь:= агг; 
епсі; //БоМоѵе 


Остались последние два пункта меню - вывод подсказок и помощи. 
Подсказка заключается в том, что нечётные клетки (в них должен быть 
сделан очередной ход, если вы забыли) будут отмечены синим 
квадратиком (раньше мы использовали плюсик, но для настоящей игры 
он не годится по эстетическим соображениям). 


тіНіпЬ : 

СарЬіоп = 'Подсказки' 

СЬескесі = Тгие (по умолчанию подсказки выводятся на экран) 

бгоиріпсіех = 3 
КасііоІЬет = Тгие 
ЗНогѣСиѣ = СЬгІ+Н 
ОпСІіск = тіНіпЬСІіск 

При переключении режима подсказок оба поля обновляются, чтобы 
показать или убрать синие квадраты: 







//ПОДСКАЗКИ 

ргосесіиге ТГогтІ.тіНіпкСІіск (Зепсіег : ТОЪдесЬ) ; 
Ьедіп 

тіНіпк . СЬескесі: = пок тіНіпк. СЬескесі; 
сідРоІе. Іпѵаіісіаке; 
сідРо1е2 . Іпѵаіісіаке; 
епсі; //тіНіпкСІіск 


тіНеІр: 

Саркіоп = 'Правила' 
Сгоиріпсіех = 4 
ЗНог-ЬСик = Скгі+Р 


После того как вы закончите программировать игру, напишите сами 
«справочное пособие» для начинающих пользователей! 

Как я уже отмечал выше, фишки могут быть любого цвета, а не только 
белыми и чёрными (они названы так, чтобы не было путаницы при 
изменении цвета настоящих фишек]. В данном случае роль чёрных фишек 
играют красные, а белых - зелёные. Чтобы игровое поле выглядело ещё 
привлекательнее, можно добавить фон. Размер клеток поля 60 х 60 
пикселей, такой же величины должны быть и растровые картинки. 
Кнопки можно нарисовать в любом графическом редакторе, но лучше 
использовать специализированные редакторы для МѴеЪ- графики, 
например Хага \ѴеЬ5іу1е. И последнее: не забудьте по контуру рисунка 
выполнить чёрную рамку (Рис. 5.10]. 






Рис. 5.10. Цветные фишки 


Для хранения этих картинок установите на форме два компонента ТІтаде 



ТТтаре „ . 

" и загрузите в свойство Рісіиге картинки с диска. 


ішдШіі-Ье : 

Ш.<±Ыі =60 
НеідЬ'Ь = 60 
Аи'ЬоЗіге = Тгие 
ѴізіЫе = Раізе 


ішдВІаск: 

ЮісіІДі =60 
НеідЬ'Ь =60 


















АиГоЗіге = Тгие 
ѴізіЫе = Еаізе 


При выводе сетки на экран вызывается процедура ддРоІеОгаѵѵСеІІ, в 
которую и нужно поместить все операции по отрисовке каждой клетки 
поля в зависимости от того, какая фишка в ней находится. В нужную 
ячейку поля копируется соответствующая картинка, а затем, если 
необходимо, в нечётной клетке рисуется синий квадрат: 


//ОТРИСОВАТЬ ЯЧЕЙКУ ИГРОВОГО ПОЛЯ 

ргосесіиге ТРогшІ . сідРоІеБгаѵСеІІ (Зепсіег: ТОЬ^есГ; АСоІ, АРоѵ: ІпГе- 
дег ; 

РесГ: ТРесГ; ЗГаГе: ТСгісШгамЗГаГе); 
ѵаг 

і, , п, т: іпГедег; 
г, сіг: ТРЕСТ; 

Ьедіп 

//фишка в ячейке : 

п:= тазРоІе[АСоІ, АРоѵ]; 


// размеры картинок : 

г:= Воипсіз (0, 0, 60, 60); 

сіг:= Воипсіз (Ре сГ . Ъе ГР, РесГ. Тор, 60, 60); 


сазе п оГ 

Ѵ\ГНІТЕ: //- белая фишка 

сідРоІе . сапѵаз . СоруРесб (сіР, 
еізе //- чёрная фишка 

сідРоІе . сапѵаз . СоруРесб (сіР, 

епсі; 


ітдШіібе . Сапѵаз, Р) ; 
ітдВІаск.Сапѵаз, Р); 


//выводить подсказки для нечётных позиций? 
т:= сідРоІе . СоІСоипР-1 ; 

ІГ тіНіпР. СПескесі ккеп Ьедіп // - выводить подсказки 
//нечётная клетка? 
п : = 0 ; 

Гог з : = 0 Ьо т сіо 
Гог і: = 0 Го т сіо 

ІГ (і=АСо1) ог (з=АРои) ГЬеп Ьедіп 
п:=п+тазРо1е [ і,д] ; 
епсі; 

ІГ осісі(п) ГЬеп Ьедіп // - нечётная! 

//нарисовать контурный квадрат: 

ІпГІаГеРесГ (сіг, -3,-3) ; 

сідРоІе . Сапѵаз . ВгизЬ. ЗГуіе : = ЬзСІеаг ; 

//цвет линий: 

сідРоІе . Сапѵаз . Реп . Соіог : = сІВІие; 
сідРоІе . Сапѵаз . Реп . ИісіГЬ: = 1; 

сідРоІе . Сапѵаз . РесГапдІе (сіг . ІеГГ, сіг. Гор, сіг.гідЬР, 
сіг. ЬоГГот) ; 
епсі; 





епсі; 

епсі; //сідРоІеВгаиСеІІ 


Точно так же выводятся на экран и клетки поля-образца. Есть только одно 
различие: клетки этого поля в 2 раза меньше размера картинок, поэтому 
метод канвы СоруКесі не подходит, ему на смену приходит более мощный 
метод ЗігеісЬОгаѵѵ, который «умеет» подгонять картинку под любые 
размеры: 


//ОТРИСОВАТЬ ЯЧЕЙКУ ПОЛЯ-ОБРАЗЦА 

ргосесіиге ТРогшІ . сідРо1е20гаѵгСе11 (Зепсіег: ТОЬзесЕ; АСоІ, АКоѵ: Іп- 
Еедег; 

КесЕ: ТКесЕ; ЗЕаЕе: ТСгісШгамЗЕаЕе); 
ѵаг 

і, 3 , п, т: іпЕедег; 
сіг: ТРЕСТ; 

Ьедіп 

п:= тазРо1е2[АСоІ, АРоѵ]; 

сіг:= Воипсіз (РесЕ. ЪеЕЕ, ВесЕ.Тор, ВесЕ.ВідЬЕ- 
ВесЕ . ЪеЕЕ, КесЬ .ВоЕЕот-ВесЕ . Тор) ; 
сазе п оЕ 

ѴШІТЕ: //- белая фишка 

сідРо1е2 . сапѵаз . ЗЕгеЕсЬЕгаи (сіВ, ітдШііЕе . РісЕиге . СгарЬіс) ; 
еізе //- чёрная фишка 

сідРо1е2 . сапѵаз . ЗЕгеЕсЕОгаи (сіВ, ітдВІаск. РісЕиге . СгарЬіс) ; 

епсі; 

//выводить подсказки для нечётных позиций? 
т:= ЬдРо1е2 .СоІСоипЕ-1; 

ІЕ тіНіпЕ . СЬескесі ЕЬеп Ьедіп 
п : = 0 ; 

Еог 3 : = 0 Ео т сіо 
Еог і:= 0 Ео т сіо 

ІЕ (і=АСо1) ог (з=АВоѵ) ЕЬеп Ьедіп 
п:=п+тазРо 1 е 2 [ і, 3 ] ; 
епсі; 

ІЕ оскі(п) ЕЬеп Ьедіп 
ІпЕІаЕеВесЕ (сіг, -2, -2) ; 

сідРоіе2 . Сапѵаз . ВгизЬ. ЗЕуіе : = ЬзСІеаг ; 
сідРо1е2 . Сапѵаз . Реп . Соіог : = сІВІие; 
сідРо1е2 . Сапѵаз . Реп . ѴіісіЕЬ: = 1; 

ЬдРо1е2 . Сапѵаз . ВесЕапдіе (сіг . ІеЕЕ, сіг.Еор, сіг.гідЬЕ, 
сіг. ЬоЕЕот) ; 
епсі; 
епсі; 

епсі; //сідРо1е2ЕгаѵСе11 


Вполне уместно сразу рассмотреть и вторую процедуру для игрового поля. 
При нажатии в какой-либо клетке левой кнопки мыши выполняется ход, 
то есть «переворачиваются» фишки в соответствующей колонке и строке. 







Как это делается, мы уже разобрали. Если вы захотите выставить на поле 
свою позицию, то при нажатии кнопки мыши удерживайте клавишу 5Ьі/і: 
(правая кнопка мыши уже занята под вызов меню). В этом случае изменит 
цвет только одна фишка. 


//ПЕРЕВЕРНУТЬ ФИШКУ ИЛИ СДЕЛАТЬ ХОД 

ргосесіиге ТРогшІ . сІдРоІеМоизеБоѵт (Зепсіег : ТОЬ^есЕ; ВиЕЕоп: ТМоизе- 
ВиЕЕоп; 

ЗЬіЕЕ: ТЗЬіЕЕЗЕаЕе; X, У: ІпЕедег); 
ѵаг 

АСо1,АКоѵ: ІпЕедег; 
і, ^: ІпЕедег; 

Ьедіп 

//координаты мыши: 

ДдРоІе.МоизеТоСеІІ(х,у,АСоІ,АКом); 

//нажата левая кнопка мыши и клавиша ЗЬіЕЕ - 
//инвертируем цвет клетки: 

ІЕ (ззЬеЕЕ іп зЬіЕЕ) апсі (ззЗЬіЕЕ іп зЬіЕЕ ) ЕЬеп Ьедіп 
ІЕ тазРоІе[АСоІ,АКоѵ]= 1 ЕЬеп тазРоІе[АСоІ,АКоѵ]:= О 
еізе тазРоІе[АСоІ,АКоѵ]:= 1; 
сідРоіе. ІпѵаІісіаЕе; 
епсі 

//нажата левая кнопка мыши без клавиши ЗЬіЕЕ - 
//делаем ход - инвертируем ряды: 
еізе ІЕ ззЬеЕЕ іп зЬіЕЕ ЕЬеп Ьедіп 

іпс (Нос!) ; ІЫНосі. СарЕіоп : = 'Ход - ' + іпЕЕозЕг (Носі) ; 

Еог ;]:= 0 Ео сідРоіе. Р.оиСоипЕ-1 сіо 
Еог і:= 0 Ео сідРоіе. СоІСоипЕ-1 сіо 
ІЕ (і=АСоі) ог ^=АКом) ЕЬеп 
//инвертировать клетку: 
тазРоІе[і, 3 ]:= аЬз(тазРоІе[і, 3 ]-1); 
сідРоіе. ІпѵаІісіаЕе; 

//запомнить ход: 

Моѵез [Носі] .х:= АСоІ; 

Моѵез [Носі] . у:= АКои; 

//проверить, не решена ли задача: 

ІЕ ІзКеасіу ЕЬеп Кеасіу; 
епсі; 

епсі; //ЬдРоІеМоизеБоші 


Чтобы иметь возможность брать ходы назад, следует вести «протокол» - 
заполнять массив Моѵез координатами каждого хода. Объявите его в 
разделе глобальных переменных. Там же разместите и переменную для 
хранения числа сделанных ходов: 


ѵаг 

баше: ТСате; 

//запись ходов: 

Моѵез: аггау[0..999] оЕ ТРоіпЕ; 







//номер хода: 
Носі: іпЬедег= 0; 


После каждого хода нужно проверять, не решена ли задача. Доверим это 
функции ІзКеаду. Если найдётся хотя бы одна фишка на игровом поле, 
отличная от фишки в соответствующей клетке поля-образца, то 
радоваться, увы, рано, в противном случае мы дошли до конечной позиции 
и имеем полное право поздравить себя с победой: 


//ПРОВЕРИТЬ, НЕ ПОЛУЧИЛАСЬ ЛИ КОНЕЧНАЯ ПОЗИЦИЯ 

^ипсЬіоп ТРогтІ . ІзКеасіу : Вооіеап; 
ѵаг 

і, 3 : іпЬедег; 

Ьедіп 

Кези11::= Тгие; 

Тог 3 : = 0 Со сідРоІе. КоиСоипЬ-1 сіо 
Еог і:= 0 Со сідРоІе. СоІСоипЬ-1 сіо 

ІЕ тазРоІе[і,з]О тазРо1е2[і, 3 ] Ыіеп 
Ьедіп Кези1Е:= Еаізе; ехіЕ епсі 
епсі; //ІзКеасіу 


Поздравление мы оформим без изысков (Рис. 5.11). 



Рис. 5.11. Скромненько, но со вкусом! 



За основу примем компонент 


ТРапеІ 


Рапеіі : 


Ш.<Ші = 196 
НеідЬЬ =45 
АиЬоЗіге = Тгие 
ВеѵеІІппег = ЬѵЪомегесі 
ВогчЛегЗЬуХе = ЬзЗіпдІе 
Соіог = сІВІаск 
ѴізіЫе = Еаізе, 


на котором расположим метку ЬаЬеІІ: 

= 2 

Тор = 2 
ГОісіІДі = 188 
НеідЬЬ =37 

Сарѣіоп = 'Получилось!' 

Ропѣ. Соіог = сІКесі 
РопЬ.НеідЬЬ = -32 
РопЬ. ЗЬуІе = [ЕзВоІсі] 














В процедуре Кеаду мы показываем панель в середине формы, обнуляем 
счётчик (объявите глобальную переменную гер: іпіедег= 0 ;) и включаем 
таймер : 


//ЗАДАЧА РЕШЕНА! 

ргосесіиге ТРогшІ . Кеасіу ; 

Ьедіп 

рапеіі. ЬеЬЬ: = (Еогті. ѴЛсі'ЬЬ.— рапеіі.ЭДісіЫі) сііѵ 2; 
рапе11.Тор:= (Еогті.НеідЬЬ- рапеіі.НеідЬЬ) сііѵ 2; 
рапеіі .ѴізіЫе : = Ьгие; 
гер:= 0; 

Ьітег 1. ЕпаЫеЬ : = Ьгие; 
епсі; // КеаЬу 


Настройте компонент ТТітегІ так, чтобы он срабатывал примерно 2 раза в 
секунду: 

ІпЬегѵаІ = 400 
ОпТішег = ТітегІТітег 

Через установленный промежуток времени будет выполняться следующая 
процедура: 


//МИГАЮЩАЯ НАДПИСЬ 

ргосесіиге ТРогшІ.ТітегІТітег (ЗепЬег : ТОЬ^есЬ); 
Ьедіп 

іпс (гер); 

ІЬ осісЦгер) Ыіеп ІаЬеІІ. ЕопЬ . Соіог : = сІКесі 
еізе ІаЬеІІ.ЕопЬ.Соіог:= сібгееп; 
іі гер>15 ЬЬеп Ьедіп 

Ьітегі.ЕпаЫесі: = іаізе; 
рапеіі .ѴізіЫе : = Гаізе; 
епсі; 

епсі; // ТітегІТітег 


В ней цвет надписи изменяется с красного на зелёный и наоборот. Через 
15 миганий таймер выключится, а панель исчезнет с экрана. 

Так как на правом поле находится конечная позиция, то можно позволить 
себе устанавливать её по собственному желанию, а вот делать ходы на 
этом поле не нужно, поэтому процедура-обработчик нажатия кнопки 
мыши будет проще, чем для игрового поля: 


//ПЕРЕВЕРНУТЬ ФИШКУ НА ПОЛЕ-ОБРАЗЦЕ 

ргосесіиге ТЕогшІ . сідРо1е2МоизеОоип (Зепсіег : ТО^есЬ; ВиЬЬоп: ТМоизе- 
ВиЬЬоп; 

ЗЬііЬ: ТЗЬііЬЗЬаЬе; X, У: ІпЬедег); 
ѵаг 

АСо1,АКоѵ: ІпЬедег; 









Ьедіп 

//координаты мыши: 

сідРо1е2 .МоизеТоСеІІ (х, у, АСоІ, АКои) ; 

//нажата левая кнопка мыши - инвертируем цвет клетки: 
іі ззЪеіЬ іп зЫЫ: Ыіеп Ьедіп 

іі тазРо1е2[АСоІ,АКои]= 1 Ыіеп тазРо1е2[АСоІ,АКои]:= О 
еізе тазРо1е2[АСоІ,АКои]:= 1; 
сідРо1е2 . ІпѵаІісіаЬе; 
епсі 

епсі; // сідРо1е2МоизеРоип 


Теперь у нас имеется всё необходимое для того, чтобы решать задачи 
наподобие тех, что мы рассматривали в программе Флип-Флоп. Как вы 
помните, нахождение короткого перехода от одной ненулевой позиции к 
другой было оставлено для самостоятельного анализа. Конечно, вы 
догадались, что лишние ходы в решении возникают из-за клеток с 
плюсиками, одинаково расположенными на обоих полях (обе клетки 
нечётные). Выполнив два хода в одну и ту же клетку, мы только продлили 
решение задачи, но не изменили его. Отсюда следует правило: для 
перехода из одной позиции в другую следует ходитъ на игровом поле в те 
нечётные клетки, которым соответствуют чётные клетки на поле- 
образце, и, наоборот, в те чётные клетки, которым там соответствуют 
нечётные. 

Технически это выглядит так. Мы последовательно перебираем пары 
соответствующих клеток обоих полей. Если ровно одна из них нечётная, то 
мы делаем ход в эту клетку игрового поля. Если они обе чётные или обе 
нечётные, то такие клетки мы пропускаем и переходим к следующей паре. 
Закончив обход всего поля (или раньше, если повезёт), мы неминуемо 
решим задачу. 

Для примера рассмотрим конкретную задачу (Рис. 5.12). 

На рисунках серым цветом выделены нечётные клетки на обоих полях. 
Ходы нужно выполнять только в те клетки игрового поля, которые 
отмечены крестиком. Всего для решения задачи потребуется 9 ходов. 

Легко проверить, что, действуя аналогично, вы справитесь с любой задачей 
на поле 6x6 клеток (а также на любом другом квадратном с чётным 
количеством клеток; именно поэтому в программе отсутствует режим 8x8 
клеток - начинающим игрокам задачи на таком большом поле будут не по 
зубам, а для знатоков в них нет ничего нового). 





Начальная позиция:; 


Конечная позиция: 




Ходы: 
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Рис. 5.12. Как решить задачу 


Сюрпризы начинаются на поле 5x5 клеток. Куда бы вы ни сделали первый 
ход из нулевой позиции, вы получите не одну, а сразу несколько нечётных 
клеток (Рис. 5.13). 
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Рис. 5.13. Приключения начинаются! 

Причём только одна из них «правильная», а все остальные не ведут к 
решению задачи. Ситуация становится ещё более напряжённой после 
второго хода (Рис. 5.14). 
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Рис. 5.14. Усугубляем! 


А творится это «безобразие» потому, что теперь в каждой колонке и 
строке нечётное количество клеток, а это значит - все клетки с единицей 
будут нечётными, а с нулём - чётными. Это легко проверить для позиции, 
возникающей из нулевой после первого хода (впрочем, все дальнейшие 
рассуждения верны и для этой позиции). Если второй ход сделать в клетку 
с 0 (она чётная), то в ней появится 1, при этом изменятся числа в 9 клетках 
соответствующей колонки и строки. До второго хода в них было чётное 
количество единиц (ходим в чётную клетку!) и нечётное количество нулей 
(всего чисел 9 - нечётное число), а после него будет нечётное количество 
единиц, так что клетка превратится в нечётную. Можете проверить, что, 
сделав ход в нечётную клетку (с единицей), вы получите чётную клетку. 
Естественно, третий ход только подтвердит эту печальную традицию. 


Так как чётность клеток изменяется при каждом ходе, то невозможно 
определить, в какие из них были сделаны предыдущие ходы. Зато мы 
теперь можем легко показать существование неразрешимых позиций. 
Выставим на нулевое поле одну единицу. Например, в левый верхний угол 
(Рис. 5.15). 
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Рис. 5.15. Первый ход - и сразу в угол! 
































В этой позиции нечётной оказывается не только клетка с единицей, но и 
ещё 8 клеток с нулями! Но мы доказали, что во всех позициях, 
возникающих из нулевой, клетки с нулями могут быть исключительно 
чётными. Таким образом, указанная позиция не может получиться из 
нулевой и, соответственно, не может быть сведена к ней никакими ходами. 
Вы можете легко найти множество неразрешимых позиций, если 
запустите программу, очистите левое поле (все фишки станут зелёными ), 
установите его размеры 5 на 5 клеток и будете выставлять красные фишки 
левой кнопкой мыши с шифтом. Если в какой-либо позиции хотя бы одна 
красная фишка станет чётной (не будет выделена синим квадратом] или 
хотя бы одна зелёная нечётной (будет выделена) - значит, вы получили 
неразрешимую позицию. Смело заключайте пари, что никто эту задачу не 
решит (то есть не сможет по правилам игры перевернуть все фишки 
зелёной стороной вверх). Так развлекался ещё сам Лойд со своими 
пятнашками - почему бы и вам не пошутить (разумеется, речь идёт о 
шуточном пари!)? 

Вследствие того, что при случайном выставлении фишек на поле размером 
5 на 5 клеток нередко будут возникать неразрешимые позиции, нам и 
пришлось изменить алгоритм задания новой позиции в процедуре 
ЫеѵѵРІау. Произвольное выставление фишек мы заменили случайными 
ходами, которые, безусловно, никак не могут привести к неразрешимым 
позициям. Это верно и для второго варианта игры, когда совершается 
переход от одной ненулевой позиции к другой ненулевой позиции, так как 
и в этом случае конечная позиция возникает как результат случайных 
ходов на поле-образце. 

Итак, любая задача в нашей игре (имеется в виду поле 5x5) решается, 
вопрос только в том - как следует ходить, чтобы её решить. Нетрудно 
убедиться, что ходы в нечётные клетки (с красными фишками), в отличие 
от поля 4 х 4, к успеху не ведут - число нечётных клеток хаотически 
изменяется, но отнюдь не убывает! Всё, что мы нажили непосильным 
трудом, пошло прахом - нужно искать новые подходы к решению задач на 
поле 5x5 клеток. Или вы уже смекнули, как необходимо действовать в 
этом случае? Если это так, то можно только позавидовать вашей 
прозорливости. А всех остальных я приглашаю на следующий тур наших 
изысканий. 

Попробуем воспользоваться нашим умением решать задачи на чётных 
полях. Выделим на поле 5x5 клеток квадрат размером 4x4 клетки. 
Сделать это можно четырьмя разными способами, но нам удобнее 
совместить оба поля верхними левыми углами. Для примера рассмотрим 
реальную задачу, предложенную нашей программой. 


Мы будем выделять нечётные клетки только для малого квадрата, 
исключая остальные клетки большого квадрата при подсчёте единиц 
(красных фишек) в соответствующих колонках и строках (Рис. 5.16). 
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Рис. 5.16. Изыскательские работы продолжаются! 

Если этого не сделать, то решение квадрата 4x4 будет затруднено 
(придётся нам самим отыскивать в нём нечётные клетки). Разумеется, 
чётность клеток при таком подсчёте изменится, что и отражено на 
рисунках. 

Само решение задачи на поле 4 на 4 клетки не должно вызвать у вас 
никаких затруднений. Как и прежде, ходить нужно в нечётные, 
выделенные клетки. Ясно видно, что потребуется 10 ходов, так как 
выделено именно столько клеток. В результате получится такая позиция 
(Рис. 5.17). 
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Рис. 5.17. Начинаем с нулей! 




























































































Число в правом нижнем углу останется тем же самым, а все остальные 
числа по периметру поля могут измениться (решая задачу на доске 4x4 
мы обязаны инвертировать полные ряды длиной 5 клеток, иначе мы не 
сможем распространить наше решение на полный квадрат 5 х 5), поэтому 
числа в этих клетках заменены знаком вопроса. Попытаемся определить, 
какие числа за ними скрываются. 

Так как в левом верхнем углу находится 0 (чётная клетка), то последние 
числа в левой колонке и в верхней строке либо оба нули, либо оба 
единицы (в противном случае упомянутый нуль будет стоять в нечётной 
клетке, что невозможно). Идя от верхнего левого угла вниз по диагонали и 
рассуждая по пути аналогично, мы придём к выводу, что периферийные 
клетки (исключая угловую с нулём) содержат: либо все единицы, либо все 
нули. 

Пусть это будут единицы, тогда каждая из периферийных клеток должна 
быть чётной, так как в последней колонке и нижней строке будет по 4 
единицы (Рис. 5.18). 
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Рис. 5.18. Единицы? 

Но такая позиция невозможна, поэтому во всех периферийных клетках 
должны находиться нули, и задача решена (Рис. 5.19). 
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Рис. 5.19. Нули! 





























Если бы в правом нижнем углу стояла единица, то, сделав ход в эту клетку, 
мы пришли бы к рассмотренному нами решению. Но можно поступить 
иначе: сначала решить квадрат 4x4, тогда во всех периферийных клетках 
останутся единицы (доказательство этого очевидного факта проводится 
аналогично предыдущему случаю) и потребуется ещё один ход для 
окончания решения. 

Пользуясь этим алгоритмом, вы легко справитесь с любой задачей и на 
поле 5x5 клеток. Правда, процедуры рисования фишек ддРоІеРгаѵѵСеП и 
ддРоІе20гаѵѵСеП не умеют выделять на нём квадрат 4x4. Прежде чем мы 
улучшим эти процедуры, нужно ещё решить, что делать с полем 7x7 
клеток. Горячие головы, наверное, уже успели подумать, что и на нём 
следует выделить квадрат 4 на 4 клетки. А что вы прикажете делать с 
оставшимися тремя рядами периферийных клеток? И не надейтесь, что 
они так же благополучно «обнулятся», как и на поле 5x5 клеток. И тем не 
менее всё просто - вместо поля 4x4 нужно взять поле 6x6, вот тогда 
останется один периферийный слой фишек - со всеми вытекающими 
отсюда последствиями (если вы захотите ввести в программу режим 9x9 
клеток, то сами знаете, какое нужно взять для него меньшее поле). 

Добавьте в упомянутые процедуры такой код (выделенные строки): 


//ОТРИСОВАТЬ ЯЧЕЙКУ ИГРОВОГО ПОЛЯ 

ргосесіиге ТГогхпІ . сІдРоІеБгаѵСеІІ (Зепсіег: ТОІ^есЬ; АСоІ, АКоѵ: ІпЬе- 
дег; 

КесЬ: ТКесЬ; ЗЬаЬе: ТСгісіВгаиЗЬаЬе) ; 


// выводить подсказки для нечётных позиций? 

іЬ (сідРоІе. Со1СоипЬ= 5) апсі ((АСо1>3) ог (АКои>3)) Ыіеп ехіЬ; 

ІЬ (сідРоІе. Со1СоипЬ= 7) апсі ((АСо1>5) ог (АКоѵ>5)) Ыіеп ехіЬ; 

ІЬ сідРоІе. Со1СоипЬ= 5 Ыіеп ш:= 3 
еізе іЬ сідРоІе. Со1СоипЬ= 7 -Ыіеп ш:= 5 
еізе ш:= сідРоІе. СоІСоипЬ-1; 

епсі; //сідРоІеОгаѵСеІІ 

//ОТРИСОВАТЬ ЯЧЕЙКУ ПОЛЯ-ОБРАЗЦА 

ргосесіиге ТЕостпІ. с1дРо1е2БгамСе11 (Зепсіег: ТОЪіесЬ; АСоІ, АКоѵг: Іп- 
•Ьедег ; 

КесЬ: ТКесЬ; ЗЬаЬе: ТСгісіБгаѵЗЬаЬе) ; 

//выводить подсказки для нечётных позиций? 

іЬ (сідРо1е2.Со1СоипЬ= 5) апсі ((АСо1>3) ог (АКои>3) ) Ыіеп ехіЬ; 
ІЬ (<ідРо1е2.Со1СоипЬ= 7) апсі ((АСо1>5) ог (АКоѵ>5) ) Ыіеп ехіЬ; 
іЬ <1дРо1е2 .Со1СоипЬ= 5 Ыіеп ш:= 3 
еізе ІЬ <ЗдРо1е2.Со1СоипЬ= 7 Ыіеп ш:= 5 
еізе ш:= <ідРо1е2 .СоІСоипЬ-1; 





епсі; //<ідРо1е2ВгаѵСе11 


Порадовавшись своим успехам, давайте всё же задумаемся, а всегда ли наш 
алгоритм решения задач на нечётных полях находит самое короткое из 
всех возможных решений, как в случае чётных полей. Можно вручную 
перебирать ходы во множестве задач, чтобы проверить наши сомнения. Но 
это процесс трудоёмкий и нетворческий. Поэтому мы напишем процедуру 
поиска кратчайшего перехода между двумя позициями, взяв за основу ту, 
что сослужила нам хорошую службу в программе Флип-Флоп. Но мы 
изменим её так, чтобы она находила лучшее решение самостоятельно , без 
нашего участия. Задав такое число ходов, которого заведомо хватит для 
решения задачи, мы всё остальное поручим процедуре поиска. Например, в 
разобранной задаче для решения потребуется не более 10 ходов, поэтому 
разумно ограничить глубину поиска именно этим числом. Найдя такое 
решение, процедура продолжит поиск более коротких. И если они 
существуют, то обязательно будут обнаружены. Так, в нашем случае 
довольно шести ходов (нумерация клеток в этот раз более привычная для 
непрограммистов - начинается с единицы ): 

1. 2-3. 

2. 5-3. 

3. 3-4. 

4. 1-5. 

5. 3-5. 

6. 5-5. 

Кроме указанного, имеется ещё 3 варианта решения задачи такой же 
длины. Таким образом, мы делали 4 лишних хода. Это свидетельствует о 
том, что наш алгоритм не позволяет находить лучшее решение (по 
крайней мере, для некоторых задач). Причину этого «дефекта» несложно 
обнаружить, если внимательно посмотреть на последовательность ходов, 
выданную процедурой. В ней присутствуют ходы в периферийные клетки, 
которых мы избегали. 

Длина решения на поле 4x4 определяется числом нечётных клеток на нём 
и может быть уменьшена хорошим ходом в периферийную зону. Для поля 5 
х 5 клеток нужно проверить 8 клеток (угловая не в счёт), сделав в каждую 
из них ход и подсчитав нечётные клетки на поле 4x4. Для нашей задачи 
следует выбрать ход в нижний левый угол, что уменьшит число нечётных 
клеток на поле 4 х 4 до четырёх. При этом в правом нижнем углу будет 
стоять уже не 0, а 1, так что для решения задачи понадобится 6 ходов: 

1. 1-5. 

2. 3-1. 

3. 3-2. 





4. 

5. 

6. 


1-3. 

4- 3. 

5- 5. 


Это один из вариантов (второй), выданный процедурой поиска, которая в 
программе выглядит так: 


//НАЙТИ ПЕРЕХОД ОТ ОДНОЙ ПОЗИЦИИ К ДРУГОЙ 

ргосесіиге ТРогтІ . ЗоІиЕіоп (пЗЕер: іпЕедег); 

//п8Еер2 - количество шагов (ходов) 

ІаЪеІ 

пехЕНосі, пехЕСеіі; 
ѵаг 

Носі: іпЕедег; 

пСеІІз: іпЕедег; 

пСеІІ: аггау[0..99] оЕ іпЕедег; 

Роз: аггау[0..99] оЕ ТРоІе; 

Моѵе: аггау[0..99] оЕ іпЕедег; 

х, у: ЬуЕе; 

и,Ь: іпЕедег; 

ѵагіапЕ: іпЕедег; 

аггі, агг2: ТРоІе; 

з: зЕгіпд; 

//ПРОВЕРИТЬ, НЕ ПОЛУЧИЛАСЬ ЛИ КОНЕЧНАЯ ПОЗИЦИЯ 

ЕипсЕіоп ІзОК: Вооіеап; 

ѵаг 

і, з: іпЕедег; 

Ьедіп 

Кези1Е:= Тгие; 

Еог 3 : = 0 Ео П-1 сіо 
Еог і:= 0 Ео и-1 сіо 

ІЕ Роз [Носі] [і,з]<> агг2[і,з] ЕЬеп 
Ьедіп Кези1Е:= Еаізе; ехіЕ епсі 

епсі; 

//записать ходы в протокол: 

ргосесіиге ЗаѵеРоз; 

ѵаг 

п, і, з: іпЕедег; 
х, у: іпЕедег; 
з: зЕгіпд; 

Ьедіп 

ЕгтРгоЕокоІ. ІізЕЬохІ. іЕетз . асісі ( ' ' ) ; 

Еог п:= 1 Ео Носі сіо Ьедіп 

о . — » » . 

О • г 

х:= Моѵе[п] тосі и; у:= Моѵе[п] сііѵ и; 

ЕгтРгоЕокоІ. ІізЕЬохІ. іЕетз . асісі ('Шаг= ' + іпЕЕозЕг (п) + 

' Ход= '+ ІпЕЕозЕг(х+1)+ ' ' +іпЕЕозЕг(у+1)); 

Еог 3 : = 0 Ео Ь-1 сіо Ьедіп 
Еог і:= 0 Ео и-1 сіо 





ІЬ Роз [п] [і,^]= ВЪАСК ЬЬеп //- клетка фигуры 
з:= з+'1' 
еізе 

з:= з+'О'; //- клетка "фона" 

ЬгтРгоЬокоІ. ІізЬЬохІ. іЬетз . асісі (з) ; 

о • — » » . 

О . г 

епсі; 

епб; 

епб; 

Ьедіп 

//очистить протокол: 

ІігтРго'ЬокоІ. ІізЬЬохІ. Сіеаг; 

//скопировать массивы полей: 
агг1:= тазРоІе; агг2:= тазРо1е2; 

//размеры полей: 

ѵг: = бдРоІе . СоІСоипЬ; Ь: = бдРоІе.КоѵСоипЬ; 

//число найденных решений : 
ѵагіапЬ:= 0; 

//число клеток на поле: 
пСе11з:= и*Ь; 

//глубина поиска: 

Ноб:= 0; 

//начальная позиция: 

Роз [0]:= аггі; 

пСе11[0]:= -1; Моѵе[0]:= -1; 

// делаем следующий ход : 
пехЬНоб: 

аррІісаЬіоп.РгосеззМеззадез; 

ІЬ Ыд8Ьор= Тгие Ыіеп Ьедіп Ыд8Ьор:= Раізе; ехіЬ епб; //- 
остановить поиск 

Іпс(Ноб); пСе11[Ноб]:= пСеІІ[Ноб-1]; Роз[Ноб]:= Роз[Ноб-1]; 
//переходим к следующей клетке поля: 
пехЬСеІІ : 

іпс (пСеІІ[Ноб]); 

ІЬ пСеІІ[Ноб]>= пСеІІз Ыіеп Ьедіп//-прошли всё поле 
бес (Ноб); 

іЬ Ноб< 1 Ыіеп Ьедіп 
іі ѵагіапЬ= 0 ЬЬеп 

з:= 'Задача решений не имеет!' 
еізе Ьедіп 

ЬгтРгоЬокоІ.ЗЬоѵ; 

з:= 'Найдены все варианты - ' + іпЬЬозЬг(ѵагіапЬ); 
епб; 

ЗЬоѵМеззаде(з); 
ехіЬ; 
епб; 

СоЬо пехЬСеІІ 
епб; 

х:= пСеІІ[Ноб] тоб и; у:= пСеІІ[Ноб] біѵ и; 

//выполнить ход и запомнить позицию: 

Роз [Ноб]:=ЬоМоѵе (Роз [Ноб-1], х, у); 




//запомнить ход: 

Моѵе[Носі]:= пСеІІ [НоЬ]; 

іі ІзОК Ыіеп Ьедіп //- нашли! 

//не искать длинных вариантов: 
іі ЬосК пЗЬер Ыіеп Ьедіп 
п5Ьер:= ЬоЬ; 
ѵагіапЬ:= 0; 
епсі; 

іпс(ѵагіапЬ); 

ЬгтРгоЬокоІ. ІізЬЬохІ. іЬетз . асісі (' Вариант - ' + іпЬЬо- 
зЬг(ѵагіапЬ)+ ' Длина - ' + іпЬЬозЬг (Ьосі) ) ; 

ЬгтРгоЬокоІ. ІізЬЬохІ. іЬетз . асісі ( '-' ) ; 

заѵероз; 
епсі; 

іі Носі< пЗЬер Ыіеп доЬо ЫехЬНосІ; 
доЬо пехЬСеІІ 
епсі; // ЗоіиЬіоп 


Для вывода найденных вариантов ходов мы добавим к проекту новую 
форму - /гтРгоіокоІ (Рис. 5.20). 

Ш.<±Ыі = 2 05 
НеідЬЬ = 321 

ВогсіегТсопг = [ЬіЗузЬетМепи] 

Сар'Ьіоп = ' Варианты* 


с компонентом список - 


ТЫзШох 


ЬЫВохІ : 


= 0 

Тор = 0 
ЮісІЫі = 197 
НеідЬЬ = 293 

РопЬ.СЬагзеЬ = ІШ55ІАЫ_СНАК5ЕТ 

РопЬ.Ыаше = 'Соигіег Ыеѵ' 



Рис. 5.20. Контора пишет! 

















В модуле формы добавьте строку: 


ітрІетеп'Ь.а'Ь.іоп 

изез РгаЬокоЮпіІ:; 


Код модуля формы протокола (набирать вам его не придётся): 


ипіѣ Рго'ЬокоШпз.'Ь; 

іігЬегіасе 

изез 

Иіпсіоиз, Меззадез, ЗузЫНз, Сіаззез, СгарЫсз, СопРгоІз, Рогтз, 
Біаіодз, З'ЬсіС'ЬгІз; 

Руре 

ТРгтРгоРокоІ = сіазз (ТРогт) 

ЬізРВохІ: ТЪізРВох; 

ргіѵаРе 

{ РгіѵаРе сіесІагаРіопз } 
риЫіс 

{ РиЫіс сіесІагаРіопз } 
епсі; 

ѵаг 

РгтРгоРокоІ: ТРгтРгоРокоІ; 
ітрІетепРаРіоп 
{$К *.ОГМ} 
епсі. 


Если при поиске решения вы зададите большую глубину перебора, то этот 
процесс может и затянуться. Поэтому необходимо предусмотреть 
возможность выхода из процедуры поиска. В этих двух строках 
проверяется, не приняла ли переменная /ІдЗіор значение Тгие. И если это 
так, поиск превращается: 


аррІісаЕіоп . РгосеззМеззадез; 

іР Р1д51:ор= Тгие РЬеп Ьедіп Р1д51:ор: = Еаізе; ехіЕ епсі; //- 
остановить поиск 


Объявите эту переменную в разделе глобальных переменных: 


^ІдЗ-Ьор: Ъоо1еап= іаізе; 










Чтобы остановить решение, нужно нажать кнопку со значком СТОП. 
Прежде чем написать процедуру для обработки нажатия на кнопку, мы 
поговорим немного о самих кнопках. 

Выберем для нашей программы кнопки подходящей формы. Давайте 
сделаем их в том же стиле, что и фишки, чтобы они гармонировали друг с 
другом. Среди стандартных кнопок ТигЬо ЮеІрМ вы таких не найдёте, но 
ведь мы можем и сами сделать круглые кнопки! Воспользуемся тем же 
приёмом, что и в тетрисе, но сделаем их более удобными для работы. 

Роль кнопок будет играть компонент ТІтаде, в который нужно загрузить 
изображение соответствующей кнопки. Как их подготовить, я уже 
рассказывал, хотел бы только напомнить, что изображения кнопок 
должны быть в формате ВМР на белом фоне. 

Начнём с последней кнопки на форме, которая и будет останавливать 
поиск решений (Рис. 5.21]. 

€> 

Рис. 5.21. Стоповая кнопка 

Установите на форме компонент ітдЗіор типа ТІтаде и задайте ему 
свойства: 

ЪеіЪ = 340 

Тор = 0 (это свойство для всех кнопок одинаково) 

Ш-сЦДі =36 

НеідЬѢ = 36 (размеры всех кнопок 36 х 36 пикселей) 

Сигзог = сгНапсіРоіпР (и курсор - тоже) 

НіпЪ = 'Остановить решение' 

Рагеп'ЬЗІіоѵНіп'Ь = Раізе 
ЗЬоѵНіп'Ь = Тгие 
АиѣоЗіге = Тгие 

РісЬиге - загрузите нужную картинку. 

Тгапзрагеп'Ь = Тгие 
ОпМоигеБоѵгп = ітдЗ'ЬорМоизеВоші 
ОпМоизеЦр = ітдЗОорМоизеОр 

Потребуется и вторая картинка для этой кнопки, она будет заменять 
первую, когда кнопка находится в нажатом положении (Рис. 5.22). 



Рис. 5.22. Полный стоп! 


За основу картинок для всех кнопок можно взять те же фишки, но 
меньшего размера и другого цвета (Рис. 5.23). 

00 

Рис. 5.23. Заготовки для кнопок 

В каком-нибудь графическом редакторе на них нужно наложить значки- 
пиктограммы, как это принято в современных приложениях. 

Поскольку нам придётся выводить на кнопку два разных изображения, то 
их где-то следует хранить. Например, можно приспособить для этого тот 
же компонент ТІтаде. Тогда на каждую кнопку придётся ещё пара этих 
компонентов. Так, жизнедеятельность нашей кнопки обеспечивают 
Ітаде15 и Ітадеіб. Их свойства мало чем отличаются от компонента с 
кнопкой: 

Ш.<ЗРЬ =36 
НеідЬР =36 
АиРоЗіге = Тгие 

РісРиге - картинка с кнопкой в нормальном (Ітадеіб) и нажатом 
(Ітадеіб) состоянии 

ТгапзрагепР = Тгие 
ѴізіЫе = Гаізе 

При нажатии на кнопку одна картинка на ней заменяется другой: 


//ОСТАНОВИТЬ ПОИСК РЕШЕНИЙ 

ргосесіиге ТРогтІ . ітдЗРорМоизеБоѵт (Зепсіег : ТОЪ^есР; ВиРРоп : ТМоизе- 
ВиРРоп; 

ЗіііРР: ТЗЬіРРЗРаРе; X, У: ІпРедег); 

Ьедіп 

ІР СатеЗРаРеО дзЗоІиРіоп РЬеп ехір; 
ітдЗРор.РісРиге.Аззідп(Ітадеіб.РісРиге); 
епсі; // ітдЗРорМоизеБоѵт 


А при отпускании возвращается первоначальная картинка и 
устанавливается флаг выхода из процедуры поиска: 


ргосесіиге ТРогшІ. ішдЗРорМоизеОр (Зепсіег: ТОІ^есР; ВиРРоп: ТМоизе- 
ВиРРоп; 

ЗПіРР: ТЗЫРРЗРаРе; X, У: ІпРедег); 

Ьедіп 

ІР СатеЗРаРеО дзЗоІиРіоп РЬеп ехір; 
ітдЗРор.РісРиге.Аззідп(Ітаде15.РісРиге); 

Р1дЗРор:= Тгие; 
епсі; // ітдЗРорМоизеИр 






Если вы захотите сразу же и выйти из программы, то в процедуре РогтСІозе 
также установите флаг выхода из процедуры поиска (на всякий случай - 
вдруг в это время программа углубилась в поиск перехода от одной 
позиции к другой]: 


//ЗАКРЫТЬ ФОРМУ 

ргосесіиге ТРогшІ . РогтСІозе (Зепсіег: ТОЪ^есЬ; ѵаг АсЬіоп: ТСІозеАс- 
Ьіоп); 

Ьедіп 

Г1д51:ор: = Тгие; 
епсі; // ГогтСІозе 


Глубина поиска решения задаётся кнопкой ітдЗіер: 

ь еіъ = 148 

Ніи!: = ' Глубина перебора' 

ОпМоизеБоті = ітдЗберМоизеОоѵт 
ОпМоизеир = ітдЗГерМоизеОр 

Картинки для неё хранятся в компонентах Ітадеіі и Ітаде12. Это просто 
кнопка, без картинок, так как на ней будет выводиться максимальное 
число ходов при поиске решения. Поэтому поместите на кнопку метку 
ІЫЗіер, которая и будет показывать это число: 

Ье^Ь =164 
Тор = 10 
ЮісіЬЬ = 9 
НеідЬ'Ь =16 

Сигзог = сгНапсіРоіпЬ (дублируем свойства самой кнопки, ведь 
мышка во время нажатия кнопки может оказаться и на метке) 

НіпЬ = 'Глубина перебора' 

Сарѣіоп = '1' 

Ропѣ.СоІог = сІАдиа 
РопЬ . НеідЬЬ = -13 
Ропѣ.Иаше = 'М3 Запз Зегі^' 

Ропѣ.З'ЬуІе = [ГзВоІсІ] 

ЗІюѵНіпЬ = Тгие 
Тгапзрагепѣ = Тгие 
ОпМоигеОоѵт = ітдЗЬерМоизеГоѵт 
ОпМоизеЧр = ітдЗЬерМоизеІІр 

При каждом нажатии на кнопку глубина перебора будет увеличиваться 
или уменьшаться на единицу в допустимых пределах: 


//ЗАДАТЬ ГЛУБИНУ ПЕРЕБОРА 

ргосесіиге ТРогшІ. ітдЗЬерМоизеБоѵт (Зепсіег : ТОЪ^есЬ; ВиЬЬоп: ТМоизе- 
ВиЬЬоп; 

ЗМГЬ: ТЗМГЬЗЬаЬе; X, У: ІпЬедег) ; 

Ьедіп 

//заменить картинку: 







ітдЗбер . Рісбиге . Аззідп (Ітаде12 . Рісбиге) ; 

//если кнопка мыши нажата с шифтом, то уменьшить глубину перебо¬ 
ра : 

іб (ззбебб іп БЫЛ:) апсі (ззЗЬібб іп ЗЬібб) бЬеп Ьедіп 
іб 8 бер> 1 бЬеп бес ( 8 бер) ; 

//показать новое значение: 

ІЫЗбер . Сарбіоп : = іпббозбг (Збер) ; 

//отцентровать число: 

ІЫЗбер .Ъебб:= ітдЗбер . Ьебб+ (ітдЗбер . ЫббЬ- ІЫЗбер . ЫббЬ) 
біѵ 2 + 2 ; 
ехіб; 
епб; 

//если кнопка мыши нажата без шифта, то увеличить глубину пере¬ 
бора : 

іб ззбебб іп ЗЬібб бЬеп Ьедіп 

іб 5бер< бдРоіе.Со1Соипб*сІдРо1е.КомСоипб бЬеп іпс(Збер); 
ІЫЗбер . Сарбіоп : = іпббозбг (Збер) ; 

ІЫЗбер . Ъебб : = ітдЗбер .Ьебб+ (ітдЗбер . ЭДіббЬ- ІЫЗбер . ЫЬбЬ) 
біѵ 2 + 2 ; 
епб; 

епб; // ітдЗберМоизеЬоѵт 


Отпуская ее, мы возвращаем на место серую кнопку: 


ргосесіиге ТРогтІ . ітдЗЬерМоизеПр (Зепсіег : ТОЬ^есЬ; ВиЬЬоп: ТМоизе- 
ВиЬЬоп; 

5ЫГ1:: ТЗМЬЬЗЬаЬе; X, У: ІпЬедег); 

Ьедіп 

ітдЗЬер.РісЬиге.Аззідп(Ітадеіі.РісЬиге); 
епсі; // ітдЗЬерМоизеОр 


Глубина перебора хранится в глобальной переменной 


ЗЬер: іпЬедег= 1; 


Поиск решения активизируется кнопкой ітдЗоІиІіоп-. 

Ье^Ь = 188 

НіпЬ = ' Найти решение ' 

ОпМоизеБоѵт = ітдЗоІиЬіопМоизеОоѵт 
ОпМоизеІІр = ітдЗоіиЬіопМоизеОр 

Картинки хранятся в компонентах ІтадеІЗ и Ітаде14 (Рис. 5.24). 

0 


Рис. 5.24. «Решительные» кнопки 









При нажатии (точнее, при последующем отпускании) кнопки Боіиііоп 
программа переводится в режим дзБоІиЫоп и не реагирует на любые 
команды, кроме остановки поиска: 


//НАЙТИ РЕШЕНИЕ ЗАДАЧИ 

ргосесіиге ТРоппІ . ітдЗоІиРіопМоизеБоѵт (Зепсіег : ТОЬіесР; ВиРРоп: 
ТМоизеВиРРоп; ЗЬіРР: ТЗЬіРРЗРаРе; X, У: ІпРедег); 

Ьедіп 

ІР СатеЗРаРе= дзЗоІиРіоп РЬеп ехір; 
ітдЗоіиРіоп.РісРиге.Аззідп(Ітаде14.РісРиге); 
епсі; // ітдЗоІиРіопМоизеБоип 

ргосесіиге ТЕогтІ. ітдЗоІиРіопМоизеТір (Зепсіег : ТО^есР; ВиРРоп: 
ТМоизеВиРРоп; ЗЬіРР: ТЗЬіРРЗРаРе; X, У: ІпРедег); 

Ьедіп 

ІР СатеЗРаРе= дзЗоІиРіоп РЬеп ехір; 
ітдЗоІиРіоп.РісРиге.Аззідп(ІтадеІЗ.РісРиге); 

//перевести программу в режим поиска: 

СатеЗРаРе:= дзЗоІиРіоп; 

//искать решение на заданную глубину: 
зоіиРіоп (зРер) ; 

//перевести программу в режим ожидания ввода команд: 
Сате5РаРе:= дзИаіР; 
епсі; // ітдЗоіиРіопМоизеИр 


Самая первая кнопка на форме - ітдЫеѵѵСате - запускает новую игру: 

Ье^Р = 4 

Ніп-Ь = 1 Новая игра 1 
ОпМоизеБоті = ітдЫемСатеМоизеОоѵт 
ОпМоизеир = ітдЫемОатеМоизеОр 

Ее картинки хранятся в компонентах Ітадеі и Ітаде2 (Рис. 5.25). 

Рис. 5.25. «Запускательные» кнопки 


//НОВАЯ ИГРА 

ргосесіиге ТРоппІ. ішдИеѵгбашеМоизеВоѵш (Зепсіег : ТОЬз есР; ВиРРоп : 
ТМоизеВиРРоп; ЗЬіРР: ТЗЬіРРЗРаРе; X, У: ІпРедег); 

Ьедіп 

ІР СатеЗРаРе= дзЗоІиРіоп РЬеп ехір; 
ітдИеиСате.РісРиге.Аззідп(Ітаде2.РісРиге); 
епсі; // ітдЫеиСатеМоизеБоип 

ргосесіиге ТЕогтІ. ітдЫеѵСатеМоизеИр (Зепсіег : ТОЬзесР; ВиРРоп: 
ТМоизеВиРРоп; ЗЬіРР: ТЗЬіРРЗРаРе; X, У: ІпРедег); 

Ьедіп 

ІР СатеЗРаРе= дзЗоІиРіоп РЬеп ехір; 







ЫемРІау; 

ітдЫемСате.РісЬиге.Аззідп(Ітадеі.РісЬиге) ; 
епсі; // ітдЫемСатеМоизеІІр 


Действие этой кнопки заключается в вызове процедуры ЫеѵѵРІау, которую 
мы уже разобрали. 

При ручной расстановке фишек на поле могут быть очень полезны 
следующие кнопки. 

Вторая справа кнопка - ІтдКесіОпІу - переворачивает все фишки на 
игровом поле красной стороной вверх: 

ЬеЕЕ =44 

НіпЕ = ' Все фишки красные ' 

ОпМоизеБоѵт = ітдКесЮпІуМоизеОоѵт 
ОпМоизеЧр = ітдКесЮпІуМоизеИр 

Картинки хранятся в компонентах ІтадеЗ и Ітаде4 (Рис. 5.26). 


■ І> 

Рис. 5.26. Вгоняем в краску! 


//ВСЕ ФИШКИ НА ЛЕВОМ ПОЛЕ - КРАСНЫЕ 

ргосесіиге ТРогшІ . ітдКесЮпІуМоизеБоѵп (Зепсіег : ТОЪ^есЕ; ВиЕЕоп : 
ТМоизеВиЕЕоп; ЗЬіЕЕ: ТЗЬіЕЕЗЕаЕе; X, У: ІпЕедег); 

Ьедіп 

іЕ Сате8ЕаЕе= дзЗоІиЕіоп ЕЬеп ехіЕ; 

ІтдКесіОпІу. РісЕиге .Аззідп (Ітаде4 . РісЕиге) ; 
епсі; // ітдКесЮпІуМоизеБоѵт 

ргосесіиге ТЕогтІ. ітдКесЮпІуМоизеПр (Зепсіег : ТОЪ^есЕ; ВиЕЕоп: 

ТМоизеВиЕЕоп; ЗНіЕЕ: ТЗНіЕЕЗЕаЕе; X, У: ІпЕедег); 

ѵаг 

і, ^: ІпЕедег; 

Ьедіп 

ІЕ СатеЗЕаЕе= дзЗоІиЕіоп ЕЬеп ехіЕ; 

Еог ;]: = 0 Ео сідРоІе.КоиСоипЕ-1 сіо 
Еог і:= 0 Ео сідРоіе. СоІСоипЕ-1 сіо 
тазРо1е[і,^]:= ВЬАСК; 

сідРоіе. ІпѵаіісіаЕе; 

ІтдКесіОпІу. РісЕиге .Аззідп (ІтадеЗ . РісЕиге) ; 
епсі; // ітдКесЮпІуМоизеПр 


Следующая кнопка - ітдіпѵегзе - изменяет цвет фишек на игровом поле на 
противоположный: 







ЬеЕЕ =84 

НіпЕ = ' Инвертировать ' 

ОпМоизеБоѵт = ітдІпѵегзеМоизеОоѵт 
ОпМоизеЧр = ітдІпѵегзеМоизеЦр 

Картинки хранятся в компонентах Ітадеб и Ітадеб (Рис. 5.27). 

Щ ) 

Рис. 5.27. «Инверсные» кнопки 


//ИЗМЕНИТЬ ЦВЕТ ФИШЕК НА ИГРОВОМ ПОЛЕ НА ПРОТИВОПОЛОЖНЫЙ 

ргосесіиге ТРогшІ . ітдІпѵегзеМоизеБоѵт (Зепсіег : ТОЬ^есЕ; ВиЕЕоп: 
ТМоизеВиЕЕоп; БЫТЬ: ТЗЬіЕЕЗЕаЕе; X, У: ІпЕедег); 

Ьедіп 

ІЕ СатеЗЕаЕе= дзЗоІиЕіоп ЕЬеп ехіЕ; 
ітдіпѵегзе.РісЕиге.Аззідп(Ітадеб.РісЕиге); 
епсі; // ітдІпѵегзеМоизеБоѵп 

ргосесіиге ТЕогтІ. ітдІпѵегзеМоизеЦр (Зепсіег : ТО^есЕ; ВиЕЕоп: 

ТМоизеВиЕЕоп; ЗЬіЕЕ: ТЗЬіЕЕЗЕаЕе; X, У: ІпЕедег); 

ѵаг 

і, ^: ІпЕедег; 

Ьедіп 

ІЕ СатеЗЕаЕе= дзЗоІиЕіоп ЕЬеп ехіЕ; 

Еог ;]:= 0 Ео сідРоІе. КоиСоипЕ-1 сіо 
Еог і:= 0 Ео сідРоІе. СоІСоипЕ-1 сіо 
тазРоІе[і,^]:= ВЬАСК- тазРоіе [і,:) ] ; 

сідРоІе. ІпѵаІісіаЕе; 

ітдіпѵегзе.РісЕиге.Аззідп(Ітаде5.РісЕиге); 
епсі; // ітдІпѵегзеМоизеЦр 


Точно так же действует и кнопка Ітд1пѵег5е2, только она меняет цвет 
фишек на правом поле-образце: 

ЬеЕЕ = 296 

НіпЕ = ' Инвертировать ' 

ОпМоизеБоѵт = ітдІпѵегзе2Моизе0оѵт 
ОпМоизеЧр = ітдІпѵегзеМоизе2Цр 

Картинки хранятся в тех же компонентах. 


//ИНВЕРТИРОВАТЬ ЦВЕТ ФИШЕК НА ПРАВОМ ПОЛЕ 

ргосесіиге ТЕогтІ . ітдІпѵегзе2МоизеБоип (Зепсіег : ТО^есЕ; ВиЕЕоп: 
ТМоизеВиЕЕоп; ЗПіЕЕ: ТЗПіЕЕЗЕаЕе; X, У: ІпЕедег); 

Ьедіп 

ІЕ СатеЗЕаЕе= дзЗоІиЕіоп ЕЬеп ехіЕ; 
ітдІпѵегзе2.РісЕиге.Аззідп(Ітадеб.РісЕиге); 
епсі; //ітдІпѵегзе2МоизеБоип 








ргосесіиге ТЕогтІ. ітдІпѵегзе2МоизеИр (Зепсіег : ТОЬдесР; ВиРРоп: 

ТМоизеВиРРоп; ЗЬіРР: ТЗЬіРРЗРаРе; X, У: ІпРедег) ; 

ѵаг 

і, з: ІпРедег; 

Ьедіп 

ІР СатеЗРаРе= дзЗоІиРіоп РЬеп ехір; 

Рог Л = 0 Ро сідРо1е2.КоѵСоипР-1 сіо 
Рог і:= 0 Ро сідРо1е2. СоІСоипР-1 сіо 

тазРо1е2[і,^]:= ВЪАСК- тазРо1е2[і,Л; 

сідРо1е2 . ІпѵаІісіаРе; 

ітдІпѵегзе2.РісРиге.Аззідп(Ітаде5.РісРиге); 
епсі; // ітдІпѵегзе2МоизеИр 


И вот мы добрались до последней кнопки - ІтдСгеепОпІу. Она 
родственница кнопки ітдКейОпІу, но переворачивает фишки на правом 
поле и зелёной стороной вверх: 

Ье^Р = 256 

Ні-пѣ = ' Все фишки зелёные ' 

ОпМоизеБоті = ішдСгеепОпІуМоизеОоѵт 
ОпМоизеир = ітдОгеепОпІуОр 


Картинки хранятся в компонентах Ітаде7 и Ітадев (Рис. 5.28). 



Рис. 5.28. Озеленяем! 


//ПЕРЕВЕРНУТЬ ФИШКИ НА ПРАВОМ ПОЛЕ ЗЕЛЁНОЙ СТОРОНОЙ ВВЕРХ 

ргосесіиге ТРогхпІ . ішдбгеепОпІуМоизеОоѵп (Зепсіег : ТОЬзесР; ВиРРоп: 
ТМоизеВиРРоп; ЗЬіРР: ТЗЬіРРЗРаРе; X, У: ІпРедег); 

Ьедіп 

ІР СатеЗРаРе= дзЗоІиРіоп Рііеп ехір; 

ІтдСгеепОпІу.РісРиге.Аззідп(Ітадев.РісРиге); 
епсі; // ітдСгеепОпІуМоизеБоѵп 

ргосесіиге ТЕогтІ. ітдСгеепОпІуМоизеИр (Зепсіег : ТО^есР; ВиРРоп: 

ТМоизеВиРРоп; ЗЬіРР: ТЗЬіРРЗРаРе; X, У: ІпРедег); 

ѵаг 

і, з: ІпРедег; 

Ьедіп 

ІР СатеЗРаРе= дзЗоІиРіоп РЬеп ехір; 

Рог і:= 0 Ро ЬдРо1е2.КоѵСоипР-1 сіо 
Рог і:= 0 Ро ЬдРо1е2 . СоІСоипР-1 сіо 
тазРо1е2 [і, Л := ШІТЕ; 

сідРоіе2 . ІпѵаІісіаРе; 

ІтдСгеепОпІу.РісРиге.Аззідп(7.РісРиге); 
епсі; // ітдСгеепОпІуМоизеОоѵт 







Согласитесь, такие кнопки удобнее размещать на форме, ведь каждая из 
них содержится только в одном компоненте ТІтаде (ещё два компонента 
нужны для хранения картинок, но их можно убрать в любое место на 
форме и больше не трогать], а не в двух, как в тетрисе. 

Если вы помните, мы ещё не написали процедуры для двух пунктов меню. 
Один позволяет при решении задач возвращаться на один ход назад 
(вплоть до исходной позиции): 


//ВЕРНУТЬ ХОД 

ргосесіиге ТРостпІ .тіШкіоСІіск (Зепсіег : ТОЬ^есЬ); 

Ьедіп 

ІД Сате8ДаДе= дзЗоіиДіоп ДЬеп ехіД; 

ІД ДюсК 1 ДЬеп ехіД; 

тазРо1е:= БоМоѵе (тазРоІе, Моѵез [Дюсі] . х, Моѵез [ДюЬ] . у) ; 
ДдРоІе. ІпѵаІісіаДе; 
сіес (Дюсі) ; 

ІЫНосі. СарДіоп : = 'Ход - ' + іпДДозДг (Дюсі) ; 
епсі; // тіІІпсіоСІіск 


Второй, наоборот, даёт возможность двигаться вперёд по уже сделанным, 
но отменённым ходам: 


//ОТМЕНИТЬ ПОСЛЕДНИЙ ВОЗВРАТ ХОДА 

ргосесіиге ТРогшІ .тіКесіоСІіск (Зепсіег : ТОЪ^есД); 

Ьедіп 

ІД Сате8ДаДе= дзЗоІиДіоп ДЬеп ехіД; 
іпс (Дюсі) ; 

тазРо1е:= РоМоѵе(тазРоіе, Моѵез [Ьосі] . х, Моѵез [Ьосі] . у) ; 
ДдРоІе. ІпѵаІісіаДе; 

ІЫНосі. СарДіоп : = 'Ход - ' + ІпДДозДг (Дюсі) ; 
епсі; // тіКесіоСІіск 


Для большего удобства при решении задач на нечётных досках можно 
добавить подсказки и для периферийных клеток. Как вы знаете, удачный 
ход в периферийную клетку уменьшает число нечётных клеток на 
меньшем поле, а, значит, и общее число ходов, что позволяет найти лучшее 
решение задачи. Конечно, можно последовательно делать ходы в 
периферийные клетки и подсчитывать число нечётных клеток, а затем 
выбирать ту клетку, которая даёт оптимальный результат, но правильнее 
будет переложить эту рутину на плечи компьютера. Правда, нам придётся 
поработать головой, но зато потом пользоваться программой будет 
значительно удобнее. 






В первую очередь, нам потребуется функция, умеющая подсчитывать 
количество нечётных клеток на малом поле (его ширина и высота на одну 
клетку меньше игрового поля). Для этого мы проверяем каждую клетку 
малого поля и, если она нечётная, увеличиваем на 1 возвращаемое 
значение: 


//ПОДСЧИТАТЬ ЧИСЛО НЕЧЁТНЫХ КЛЕТОК НА ЗАДАННОМ ПОЛЕ 

^ипсЬіоп ТРоппІ . СаІсОсісі (Роз : ТРоІе) : ІпЬедег; 

ѵаг 

і, , іі, □ 1: іпЬедег; 
п: іпЬедег; 

Ьедіп 

Кези1Ь:= 0; 

//размеры малого поля: 
т:= ДдРоІе.СоІСоипЬ-2; 

//по всем клеткам малого поля: 

Ьог ;і : = 0 До т сіо 

Ьог і:= 0 До т До Ьедіп 

//число нечётных клеток в соотв. колонке и строке: 
п : = 0 ; 

Ьог з1:= 0 Ьо ш До 
Ьог І1:= 0 Ьо гп До 

ІЬ (І1= і) ог (з1= з) Ыіеп п:=п+ Роз[і1,з1]; 

ІЬ оДД(п) Ыіеп іпс (КезиІЬ); 
епД; 

епД; // СаІсОДД 


В процедуре выбора «хороших» периферийных клеток мы сначала 
определяем, сколько нечётных клеток содержится на малом поле в 
текущей позиции. Затем последовательно выполняем ход во все 
периферийные клетки (за исключением угловой) и вновь подсчитываем 
нечётные клетки. Если их число уменьшилось, то мы запоминаем новое 
значение. После обхода всех периферийных клеток мы проверяем, удалось 
ли улучшить результат. Если удалось, отмечаем соответствующие 
периферийные клетки кружком (в отличие от квадрата на малом поле): 


//НАЙТИ ХОДЫ В ПЕРИФЕРИЙНЫЕ КЛЕТКИ 

ргосесіиге ТРоппІ . Регі^НіпЬ (гпаззіѵ: ТРоІе; Роіе: ТЬгамСгісІ) ; 
ѵаг 

і, Зг т, п: іп1:едег; 
тіпО, тіп: іп1:едег; 

Розі1:іоп: ТРоІе; 

КесЬ: ТКесЬ; 

Ьедіп 

іі гпіНіпЬ. СЬескесі= Еаізе ЬЬеп ехіЬ; //- не выводить подсказки 
//размеры полей: 
т:= Роіе.СоіСоипЬ-1; 






//подсчитать число нечётных клеток на малом поле в текущей пози¬ 
ции : 

тіпО:= СаІсСхМ (таззіѵ) ; 
тіп:= тіпО; 

// проверить периферийные клетки: 

Рог ^ : = 0 Ро т сіо 
Рог і:= 0 іо т сіо 

іР ( (і= т) ог (^= т) ) апсі (і<>д) РЬеп Ьедіп 
//выполнить ход: 

РозіРіоп : =ОоМоѵе(таззіѵ, і, ^); 

//подсчитать число нечётных клеток на малом поле: 
п:= СаісОсісі (РозіРіоп) ; 

//запомнить минимальное число нечётных клеток 
//после хода в периферийную клетку: 

ІР п< тіп РЬеп тіп: = п; 
епсі; 

ІР тіп= тіпО РЬеп ехір; //- не удалось уменьшить число ходов 

//отметить периферийные клетки, уменьшающие число ходов: 

Рог ^ : = 0 Ро т сіо 
Рог і:= 0 Ро т сіо 

іР ( (і= т) ог ^ = т) ) апсі (і<>д) РЬеп Ьедіп 
//выполнить ход: 

РозіРіоп : =ЬоМоѵе(таззіѵ, і, ^); 

//подсчитать число нечётных клеток на малом поле: 
п:= СаісОсісі (РозіРіоп) ; 
іР п= тіп РЬеп Ьедіп 

//нарисовать окружность: 

КесР:= Роіе.СеііКесР(і, ^); 

//сідРоіе . Сапѵаз . ВгизЬ . ЗРуіе : = ЬзСіеаг ; 

//цвет линий: 

Роіе.Сапѵаз. Реп .Соіог:= сіВіие; 

Роіе . Сапѵаз . Реп . ЭДісіРЬ : = 1; 

Роіе.Сапѵаз.Еііірзе(КесР.ІеРР+2, КесР.Рор+2,КесР.гідЬР- 
2, КесР.ЬоРРош-2); 
епсі; 
епсі; 

епсі; // РегіРНіпР 


Осталось решить, из какого места программы должна вызываться 
описанная процедура. Удобнее всего это делать в тех процедурах, которые 
отвечают за прорисовку ячеек игрового и «образцового» полей. Придётся 
добавить толику кода: 


//ОТРИСОВАТЬ ЯЧЕЙКУ ИГРОВОГО ПОЛЯ 

ргосесіиге ТГостпІ . сІдРоІеБгамСеІІ (Зепсіег: ТОЬіесЬ; АСоІ, АКоѵ: Іп^Ье- 
дег; 

КесЬ: ТКесЬ; З'Ьа'Ье: ТСгісЛЭгаѵЗ'Ьа'Ье) ; 






//выводить подсказки для нечётных позиций? 

(сідРоІе . Со1СоипЬ= 5) апсі ((АСо1>3) ог (АКоѵ>3)) ЬЬеп 
Ьедіп Регі^НіпЬ(шазРоІе, сідРоІе) ; ехіЬ; епсі; 

(сідРоІе.Со1Соип-Ь= 7) апсі ((АСо1>5) ог (АКоѵ>5) ) ЬЬеп 
Ьедіп Регі^НіпЬ(шазРоІе, сідРоІе) ; ехіЬ; епсі; 


//ОТРИСОВАТЬ ЯЧЕЙКУ ПОЛЯ-ОБРАЗЦА 

ргосесіиге ТРогшІ. <ідРо1е2БгаѵгСе11 (Зепсіег: ТОЬіесЬ; АСоІ, АКои: Іп- 
Ьедег; 

КесЬ: ТКесЬ; ЗЬа-Ье: ТСгісЮгаѵЗ-Ьа-Ье) ; 


//выводить подсказки для нечётных позиций? 

(<1дРо1е2 . Со1СоипЬ= 5) апсі ((АСо1>3) ог (АКоѵ>3) ) ЬЬеп 
Ьедіп Регі^НіпЬ (шазРо1е2, <1дРо1е2) ; ехіі; епсі; 
і^ (<1дРо1е2 . Со1СоипЬ= 7) апсі ((АСо1>5) ог (АКоѵ>5) ) ЬЬеп 
Ьедіп Регі^НіпЬ (шазРо!е2, <1дРо1е2) ; ехіЬ; епсі; 


После этих усовершенствований вы легко сможете решить наилучшим 
образом любую задачу и на нечётных полях 5 х 5 и 7 х 7. Правда, речь до 
сих пор шла о режиме «полного переворота» на таких полях, но и режим 
«перехода» вам также доступен. Действуйте на малом поле совершенно по 
тому же «сценарию», что и на чётных полях. В итоге вы либо сразу 
совершите переход из одной позиции в другую, либо вам придётся сделать 
ещё один ход в правый нижний угол, если фишки в этой клетке на игровом 
и образцовом полях отличаются по цвету. 



Мы выяснили, что «нерешаемая» позиция на нечётном поле не 
может быть сведена к нулевой или любой другой решаемой. Но это 
ничуть не мешает переводу одной нерешаемой позиции в другую 
нерешаемую. Наша программа не предлагает для решения такие 
задачи, но вы можете самостоятельно ввести такие позиции на 
обоих полях. Не кажется ли вам, что здесь есть над чем подумать? 


Например, эти две прекрасные симметричные (но 
«неправильные») позиции разделяют всего 4 хода (Рис. 5.29): 

1. 3-1 (3-2). 

2. 1-3 (2-3). 

3. 5-3 (4-3). 

4. 3-5 (3-4). 







Я Хог Сате 


- 


Ход - О 


Рис. 5.29. Решаем нерешаемые задачи! 

Левая позиция получена из правой методом «блуждания» по 
правому полю за 9 ходов, но для решения задачи хватит и 4-х, 
причём самый короткий переход можно найти, пользуясь всё тем 
же алгоритмом, что и раньше. Таким образом, если между двумя 
позициями существует переход, то мы сумеем его отыскать. Это 
значит, что позицию на игровом поле можно задавать произвольно, 
а позицию на правом поле следует образовывать из позиции на 
правом с помощью серии случайных ходов. Ясно, что между этими 
позициями переход всегда возможен, а вот полный переворот 
фишек на зелёную сторону - не всегда. Если у вас есть желание, вы 
можете изменить процедуру Л/еи /РІау так, чтобы в режиме 
перехода использовались бы и «нерешаемые» позиции. Кстати 
говоря, среди них вы найдёте множество красивых, симметричных 
позиций, которые можно использовать в качестве заданий, создав 
на диске библиотеку избранных задач. Как это сделать, читайте в 
следующем разделе. 



























































Помоги себе сам, или Даём справочку 

Спасение утопающих - 
дело рук самих утопающих. 

И.Ильф, Е.Петров 


Попробуйте доказать, что существуют пары нерешаемых позиций, 
которые невозможно перевести друг в друга. Это трудно, зато я подсоблю 
вам в написании помощи для этой игры. Вызываться она будет при 
выборе пункта меню Правила. Но в этот раз мы «окажем помощь» более 
профессионально - с привлечением Справочной системы Шпйоѵ і/5. Такую 
«справку» вы можете увидеть практически во всех «серьёзных» 
программах, сделать её нетрудно и самим, особенно если начать с самого 
простого варианта. 

Вывод справки на экран осуществляется в процедуре-обработчике щелчка 
на пункте меню Помощь. Для этого мы используем функцию ѴѴіпйоѵѵз АРІ 
ХѴіпНеІр, в которой надлежит указать имя файла справки (у нас это 
будет ХогСате.Ыр ), который должен находиться в той же папке, что и 
выполняемый файл программы. 


//ПОКАЗАТЬ ФАЙЛ СПРАВКИ 

ргосесіиге ТГостпІ .шіНеІрСІіск (Зепсіег: ТОЬ^есЬ) ; 

Ьедіп 

ИіпНеІр (Ьапсііе, РСЬаг ( ' ХогСаше . Ыр ' ) , НЕЪР_СОЫТЕЫТЗ, 0) 
епсі; // шіНеІрСІіск 


Вот только где взять файл с расширением Ыр? Оказывается, его нетрудно 
получить из текстового файла в формате гС/, который можно создать во 
многих текстовых редакторах, хотя бы в ѴѴогйРай - он поставляется с ОС 
ѴѴіпйом/5 - или М5 ѴѴогй. 

В тексте справки допустимо использовать любые шрифты, а также 
добавлять картинки. Например, короткая справка для нашей игры могла 
бы выглядеть так: 























ІІІІ 








ХогСате Неір 


Логическая игр а -гол о вол ом ка, в которой требуется перейти от начальной 
позиции к конечной за минимальное число ходов, переворачивая на 
квадратном поле двухцветные фишки. 



Ход - О 


□ □В 


И Хог Сате 



Ход состоит в переворачивании любой фишки на левом, игровом поле 
(зелёная фишка становится красной, красная - зелёной), но при этом 
переворачиваются и все другие фишки в той же колонке и строке. На правом 
поле вы можете видеть конечную позицию. 


Управляющие кнопки: 


€) 

Ф 



- начать новую игру, 

- перевернуть все фишки игрового поля на красную сторону , 

- изменить цвет всех фишек игрового поля на противоположный, 


о 


- установить глубину поиска решения задачи , 

■ найти решение задачи, 

■ перевернуть все фишки правого поля на зелёную сторону , 


ф 


- изменить цвет всех фишек правого поля на противоположный , 

- остановить поиск решения задачи. 









































































Вы также можете управлять программой, вызывая всплываюиюе меню (для этого 
нажмите правую кнопку мыши): 


Запомнить позицию 

СІГІ4І 

щТ Восстановить позицию 

СІГІ-Ю 

Ход назад 

СігІ+СІ 

С*- Ход вперёд 

сігі-т 

:::: 4x4 

Р4 

іііі: 5 х 5 

Р5 

■ 6x6 

Р6 

ііііііі 7x7 

Р7 

Щ Полный переворот 

С1 гІ+Р 

Щ] Переход 

СігІ+Р 

1 1 Подсказки 

СігІ-Ж 

|Р Правила 

СігІ+Р 


Первая группа команд поможет вам найти самое короткое решение задачи. Вы 
можете запомнить любую позицию на поле, а затем восстановить её, а также 
вернуться назад на любое число ходов (или вернуть уже сделанные ходы при откате). 

Вторая группа команд устанавливает размеры полей. Разумеется, чем больше размер 
поля, тем труднее будет решить задачу. 

У игры имеется две разновидности - полный переворот, когда все фишки на игровом 
поле нужно перевернуть зелёной стороной вверх, и переход, когда следует 
перевернуть фишки на игровом поле так, как они расположены на правом поле-образце. 

Если включен режим подсказки, то программа будет отмечать те клетки игрового 
поля, на которые нужно ходить. 

Закончив набор, сохраните файл в формате КТР (в этом случае имя файла 
справки на диске будет ХогСате.гС/). 

Затем запустите программу Місгобо/і Неір ѴѴогкзкор под именем ксѵѵ.ехе (в 
ТигЪо Иеіркі она отсутствует, но в папке Тооіз вы найдёте её копию, взятую 
из Иеіркі 5). Выполните команду РПе/ Ыеѵѵ... и в открывшемся диалоговом 
окне нажмите кнопку ОК (по умолчанию будет создаваться Неір Рщесі). В 
следующем диалоговом окне перейдите в папку с программой и введите 
имя файла справки (без расширения). Снова нажмите кнопку ОК, и вы 
окажетесь в окне с вашим проектом. Неір ѴѴогкзкор самостоятельно 
запишет в него строки 

[ОРТІОЫЗ] 

І_СЮ=0х41 9 0x0 0x0 ; Русский 
РЕРОРТ=Уез 




















Сохраните файл на диске (к заданному вами имени файла добавится 
расширение Ирі), а потом откройте в любом текстовом редакторе (лучше 
всего подойдёт Блокнот из ОС Мпс/ом/5) и допишите следующие строки: 

ТІТІ_Е=ХогѲате Неір 
СОРѴРІ0НТ=В.Рубанцев, 2007 
НІ_Р=.\Хог(Зате.Ыр 
[РІІ.Е5] 

ХогОате.РТР 

ТІТІ.Е - это название справки, которое появится на панели задач при запуске помощи. 

СОРУШСНТ - фамилия автора программы, она выводится при выборе 
пункта меню СправкаI Версия в окне справочной системы Шпсіоѵѵз с вашей 
справкой. 

НБР - размещение файла помощи и его имя. 

В разделе [РПЕ5] следует указать имя файла справки с расширением РТР. 

То же самое можно сделать и в самой программе Неір ѴѴогкзЪор, нажав 
кнопку ОрНопз (Рис. 5.30). 



Рис. 5.30. Создаем справочный файл 





























Сохраните отредактированный файл проекта. Осталось только 
скомпилировать его в файл помощи. Запустите Місгозо/і Неір ѴѴогкзкор 
(или дважды щёлкните на вашем файле с расширением крі на диске). В 
открывшемся окне вы увидите название файла помощи и его текст. 
Нажмите кнопку Заѵе апй Сотрііе (она находится в правом нижнем углу 
формы), и через мгновение на диске появится файл помощи с 
расширением Мр. Щёлкните на нём дважды и убедитесь, что справочный 
файл выглядит именно так, как вы и планировали. Если необходимо, 
внесите изменения и дополнения в файл справки и проекта, а после этого 
перекомпилируйте проект с помощью Місгозо/і Неір ѴѴогкзкор. 


Точно такое же окно с вашей справкой будет появляться, когда 
пользователь выберет пункт Правила игры ХогСате. Вероятно, такой 
способ создания справки к программам вам покажется более 
привлекательным, чем рассмотренные нами ранее, - сил и времени набор 
текста справки отнимает немного, а результаты дает впечатляющие! Тем 
более что вы можете добавить к справке и другую полезную информацию. 
Сделать это уже сложнее, поэтому мы пока ограничимся только 
простейшими возможностями Справочной системы ѴѴіпсіоѵѵб. 



Операционная система И /іпсіошз 7 не поддерживает этот формат 
справочных файлов. Имейте это в виду! 


Исходный код программы находится в папке хог. 


Есть варианты, или ЗНогЮате 


Кроме игры Флип-Флоп, есть ещё несколько подобных игр, из которых мы 
подробно остановимся только на одной, а короткому обзору остальных 
посвятим следующий раздел. 


Основной признак всех игр-оборотней - это переворот двухцветных 
фишек на квадратном поле (в игре Камешки поле не квадратное, а 
прямоугольное, но вы можете сделать его и крестообразным и 
гексагональным...), поэтому близкие родственники игры Флип-Флоп 
отличаются от неё только правилом (порядком, шаблоном) 
переворачивания фишек. 



Если нарушить это условие и взять фишки с тремя или четырьмя 
сторонами, окрашенными в два или более цветов, то можно 
создать очень любопытные разновидности игр-оборотней. Если 
пойти ещё дальше и выставлять на поле по одной фишке, то 
можно получить прекрасную игру 1одо5, о которой будет 
рассказано в четвертом факультативе. 


Так, в игре Вііпкіп' (версия 1.0, 1999 г.) (Рис. 5.31), которая послужит нам 
основой для очередной игры, фишки переворачиваются точно так же, как 
и в ХогСате, но только на расстояние в 1 фишку во все стороны от 
«центральной». Поэтому вполне естественно назвать нашу программу 
коротким Хог'ом, или 57? огіСате. 



На рисунке ясно видно, что «нормальный» ход возможен только в 
середине поля, а у границ и в углах шаблон очень сильно искажает¬ 
ся. Но вы легко сможете уберечь шаблон от «ампутации», если 
возьмёте тороидальное поле (в виде бублика). На экране оно так и 
останется квадратным (прямоугольным), но первый и последний 
ряды (столбцы и колонки) нужно считать соседними, то есть «лиш¬ 
ние» фишки должны появляться на другой стороне поля. Запро¬ 
граммировать эти особенности игры на торе не составит большого 
труда. 


Вы также можете попытаться изменить длину «лучей» у стандарт¬ 
ного шаблона или сделать их диагональными. А вдруг вам удастся 
придумать новые игры-оборотни! 


Для преобразования достаточно исправить процедуры выполнения хода, а 
всё остальное можно оставить практически без изменений. Но этот путь 


слишком легкий для нас, а, значит, и не очень интересный и не очень 
полезный, поэтому мы дополнительно изменим дизайн программы и 
добавим ещё несколько симпатичных новинок. 
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Рис. 5.31. Варианты ходов (шаблоны для переворачивания фишек) в игре 
ВІіпкіп' 


Зачем нужны фиксированные ряды? 

При изучении свойств компонента ЮгамСгМ, я отмечал, что 
фиксированные ряды могут использоваться для оцифровки игровых полей. 
В этой игре я покажу вам два способа оцифровки. В первом все числа и 
буквы будут изображены на растровых картинках, во втором - просто 
напечатаны стандартным шрифтом. Вы можете оценить достоинства и 
недостатки обоих способов и выбрать подходящий. Хотя если вы можете 
нарисовать в графическом редакторе красивые картинки, то второй 
способ вам никогда и не понадобится - результаты его применения далеки 
от требований сегодняшнего дня. 

Чтобы не переписывать весь код приложения заново, откройте в ТигЪо 
ОеІрНі проект ХогСате и сохраните все модули, а затем и сам проект под 
новыми именами (кроме формы протокола). Теперь вы можете 
исправлять и добавлять новый код в проект игры 57і огіСате (Рис. 5.32). 
















Рис. 5.32. Главная форма проекта в окне Конструктора формы 

Изменения начнём с сеток. Свойства сетки сІдРоІе (указаны только те 
свойства, которые нужно исправить): 

Тор = 38 
Ш.<іиі = 2 57 

НеідЬ*Ь = 257 (немного опустили сетку, чтобы кнопки чувствова¬ 
ли себя более уютно, размеры сетки увеличились из-за того, что по¬ 
требовались ещё ряды для оцифровки) 

СоІСоип-Ь = 5 
КотеСоип-Ь = 5 
Бе^аиІ'ЬСоІ^ісі'Ыі =50 

Бе^аиІ'ЬР.о^НеідЬ'Ь = 50 (размеры клеток пришлось уменьшить, так 
как в игре будут использоваться поля до 9 х 9 клеток) 

бгісіЬіпе^ісі'ЬЬ = 1 (очертим все клетки - фон клеток стал тем¬ 
нее, и чёрные линии будут плохо заметны) 

Ор'Ьіопз = [доѴегбЬіпе, доНоггЬіпе] 

Свойства сетки <ідРоІе2\ 

= 272 

Тор = 38 

теісіиі = ізз 

НеідЬѢ = 133 
Сигзог = сгНапсІРоіп'Ь 

СоІСоип-Ь = 5 
КоѵСоип'Ь = 5 
Бе^аиІ'ЬСоІШ.сіЫі = 25 
Бе ^аи1 ■ЬКо ѵНе і дЬ Ь = 2 5 
ЕіхесіСоІог = сІЗіІѵег 
















































































































РіхесіСоІз = 1 
ГіхесіКоѵ/з = 1 
СгісіІііпеШ.сІ'Ыі = 1 
Орѣіопз = [доГіхесіѴегІі- 
Ъіпе, доГіхесіНоггЪіпе, доѴег'ЬЪіпе, доНоггЪіпе] 

На правой сетке мы разместим два фиксированных ряда - горизонтальный 
и вертикальный - для вывода оцифровки. Это сделано только для примера 
- никаких преимуществ этот способ оцифровки не даёт. 

Перейдём к процедурам рисования клеток игрового поля. Ради 
разнообразия мы заменим фишки шариками на «паркете» (Рис. 5.33]. 


□ 


□ 


- ітдѴѴЫІе 


- ітдВІаск 


Рис. 5.33. Шариковые фишки 

Для оцифровки потребуется довольно много картинок (Рис. 5.34). 
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Рис. 5.34. Картинки для оцифровки полей 

Как и раньше, их можно загрузить в компоненты ТІтаде, расположенные 
на форме, но картинок так много, что разумнее использовать для их 

г— ТІтадеизі 

хранения специальный компонент ТІтадеЬізі; «э (страница \Ѵіп32 

в Палитре компонентов ). Впрочем, это создаёт и определённые 
неудобства, в чём вы скоро сами сможете убедиться. 

Итак, щёлкните на этом компоненте в Палитре, и он послушно возникнет 
на форме. Сразу же установите размеры картинок 50 х 50 пикселей, иначе 
при загрузке они будут искажены: 

Иагпе = ітІЫо'Ьа 
НеідЬ'Ь =50 
Ш-сЦДі =50 


А вот теперь откройте Редактор, дважды щёлкнув компонент ТІтадеЬІБі 
(тот, который на форме, естественно) (Рис. 5.35). 
























Рис. 5.35. Картинки в списке! 

Нажимайте кнопку АсШ... и загружайте заранее подготовленные картинки 
с оцифровкой. Их примерный облик представлен выше. Порядок загрузки 
картинок - тоже. Под каждой картинкой вы увидите число - это индекс 
соответствующей картинки в списке, он используется для ее вывода на 
канву компонента. Как только список заполнится, закрывайте Редактор и 
переходите к написанию кода. 

В процедуре ддРоІеОгаѵѵСеІІ вычисляется «номер» т клетки с 
координатами АСоІ, АКоѵѵ на игровом поле, а по нему определяется 
дальнейшая судьба клетки. В верхнюю строку выводятся картинки с 
индексами 0-9 (буквы), а в первую колонку - картинки с индексами 10-18 
(цифры), во все остальные - шарики соответствующего цвета. 

Чтобы перенести картинку из компонента ТІтадеЫзі: на канву сетки, 
приходится использовать его метод 

ргосесіиге Бгаѵ(Сапѵаз: ТСапѵаз; X, У, Іпсіех: ІпЕедег; ЕпаЫесі: 
Воо1еап=Тгие); 

Из чего следует, что вы не сможете непосредственно применить более 
мощные методы самой канвы. 


//ОТРИСОВАТЬ ЯЧЕЙКУ ИГРОВОГО ПОЛЯ 

ргосесіиге ТРогшІ.сІдРоІеБгаѵСеІІ (Зепсіег: ТОЪ^есЕ; АСоІ, АКоѵ: ІпЕе- 
дег; 


КесЕ: 

ТКесЕ; ЗЕаЕе: ТСгісШгамЗЕаЕе); 

ѵаг 



п. 

т: 

іпЕедег; 

г. 

сіг 

: ТРЕСТ; 




































































Ьедіп 

//фишка в ячейке : 

п:= тазРоІе[АСоІ, АКои]; 

// размеры картинок : 

г:= Воипсіз (0, 0, 50, 50); 

сіг:= Воипсіз (КесЬ. ЪеЬЬ, КесЬ.Тор, 50, 50); 
ш:= 100 * АКом + АСоІ; 
сазе т оі 

0..9: //- верхняя строка 

ітІЫоЬа . Бгаи (сідРоІе . Сапѵаз, сіг.іеіі:, сіг.Ьор, т) ; 

100, 200, 300, 400, 500, 600, 700, 800, 900: //- первая 
колонка 

ітІЫоЬа . Бгаи (сідРоІе . Сапѵаз, сіг.іеіі:, сіг.Ьор, т сііѵ 100 + 9); 
еізе Ьедіп 
сазе п оі 

ѴШІТЕ: //- белая фишка 

сідРоІе . сапѵаз . СоруКесЬ (сіК, ітдИЬіЬе . Сапѵаз, К) ; 

ВЪАСК: //- чёрная фишка 

сідРоІе . сапѵаз . СоруКесЬ (сіК, ітдВІаск. Сапѵаз, К) ; 

епсі 

епсі 

епсі; 

епсі; //ЬдРоІеРгаиСеИ 


В остальном эта процедура не таит в себе никаких неприятных сюрпризов. 
Обратите внимание на то, что подсказки теперь не выводятся. Правила 
выбора ходов для игры ХогСате здесь работать не будут, поэтому их 
нужно заменить другими. А вот какими - попробуйте найти сами! 

В правой сетке имеются фиксированные ряды для печати оцифровки, но - 
на всякий случай - предусмотрена и возможность вывода тех же картинок 
с буквами и цифрами, что и на игровом поле, но в масштабе 1: 2. 

Для букв и цифр выбран жёлтый цвет на сером фоне, но вы легко можете 
заменить их другими. Вывод символов осуществляется методом канвы 

ргосесіиге Тех-ЬКесЬ (КесЬ: ТКесЬ; X, У: ІпЬедег; сопзЬ ТехЬ: 
зЬгіпд) ; 

Сделать это чрезвычайно просто, и если вас удовлетворяет результат, то 
вы можете смело пропустить следующий абзац. 

Вывод картинок на канву правой сетки осложняется тем, что размер 
картинок в компоненте ІтадеЫ5і;1 отличается от размеров клеток на 
правом поле. Конечно, можно заготовить ещё один комплект букв и цифр 
подходящего размера, но это не лучший вариант. Если бы картинки 
хранились в компоненте ТІтаде, то всё бы решалось так же просто, как и 
для картинок с шариками. Однако для картинок с оцифровкой недоступен 





метод канвы 5ігеісМ)тѵ\/. Вместо него мы должны применять метод ^гаѵ ѵ 
компонента ТІтадеЬЫ, который не позволяет масштабировать 
изображения. Придётся создать в памяти компьютера растр Ьтр по 
размеру картинок, скопировать в него изображение из компонента 
ТІтадеЬЫ и только потом перенести в клетку в уменьшенном масштабе. 
Чтобы воспользоваться этим способом, раскомментируйте строчки, в 
которых присутствует Ьтр и закомментируйте вывод текста. 


//ОТРИСОВАТЬ ЯЧЕЙКУ ПОЛЯ-ОБРАЗЦА 

ргосесіиге ТРогшІ . сідРо1е20гаѵгСе11 (Зепсіег: ТОЬ^есЬ; АСоІ, АКои: Іп- 
Ьедег; 

КесЬ: ТКесЬ; ЗЬаЬе: ТСгісШганЗЬаЬе) ; 
ѵаг 

п, т: іпЬедег; 
г, сіг: ТРЕСТ; 

//Ьтр: ТВіЬтар; 
сЬ: зЬгіпд; 

Ьедіп 

//фишка в ячейке : 

п:= тазРо1е2[АСоІ, АРои]; 

// размеры картинок : 

г:= Воипсіз (0, 0, 25, 25); 

сіг:= ВоипЬз (РесЬ.ЪеЬЬ, РесЬ.Тор, РесЬ.РідЬЬ- 
РесЬ.ЪеЬЬ,РесЬ.ВоЬЬот-РесЬ. Тор) ; 

т:= 100 * АРои + АСоІ; 

//создать промежуточный растр: 

//Ътр:= ТВіЬтар.СгеаЬе; 

//Ьтр .МісіЫі: = 50; 

//Ьтр.НеідЬЬ:= 50; 


//оцифровка: 

сідРо1е2 . Сапѵаз . ЕопЬ . Соіог : = сІУеІІои; 

ЬдРо1е2.Сапѵаз.ЕопЬ. Иате : = 1 М3 Запз ЗегіЬ'; 
ЬдРо1е2 . Сапѵаз . ЕопЬ . ЗЬуІе : = [ ЬзВоШ] ; 

ЬдРо1е2.Сапѵаз.ЕопЬ.Зіге:= -14; 

ЬдРо1е2.Сапѵаз.ВгизЬ.Соіог:= сІСгау; 

сазе т оЬ 

0: //- угловая клетка 
Ьедіп 

ітІЫоЬа.Бгаи(Ьтр.Сапѵаз, 0, 0, 0); 
ЬдРо1е2.сапѵаз.ЗЬгеЬсЬБгаи (ЬР, Ьтр); 
епсі; 

1..9: //- верхняя строка 
Ьедіп 

//ітІЫоЬа.Бгаи(Ьтр.Сапѵаз, 0, 0, т); 

//сідРо1е2 . сапѵаз . ЗЬгеЬсЬБгаи (сІР, Ьтр) ; 





сЬ: = ІеЬЬег [т] ; 

иіЬЪ. сіК, сідРо1е2. Сапѵаз сіо 

ЬехЬгесЬ (Ьг, ІеіЫ-(гідЬЬ-ІеіЬ-ЬехЬѵісіЫі (сЬ) ) сііѵ 2, 
Ьор+ (ЪоЬЬот-Ьор-ЬехЬЬеідЬІ: (сЬ) ) сііѵ 2, сЬ) ; 

епсі; 

100, 200, 300, 400, 500, 600, 700, 800, 900: //- первая 
колонка 

Ьедіп 

//ітІЫоЬа.Ьгаѵ(Ътр.Сапѵаз, 0, 0, т сііѵ 100 + 9); 

//сідРо1е2 . сапѵаз . ЗЬгеЬсЬЬгаѵ (сШ, Ътр) ; 
сЬ: = іпЬЬозЬг (т сііѵ 100); 
ѵіЫі сіК, сідРо1е2 . Сапѵаз сіо 

ЬехЬгесЬ (сіг, 1еіЬ+(гідЬЬ-ІеіЬ-ЬехЬиісіЬЬ (сЬ) ) сііѵ 2, 
Ьор+(ЪоЬЬот-Ьор-ЬехЬЬеідЬІ: (сЬ) ) сііѵ 2, сЬ) ; 
епсі; 

еізе Ьедіп 
сазе п оі 

ѴШІТЕ: //- белая фишка 

сідРо1е2 . сапѵаз . ЗЬгеЬсЬРгаи (сіК, 
ітдИЬіЬе.РісЬиге.СгарЪіс); 

ВЪАСК: //- чёрная фишка 

сідРо1е2 . сапѵаз . ЗЬгеЬсЬРгаи (сіК, 
ітдВІаск.РісЬиге.СгарЪіс); 
епсі 
епсі 
епсі; 

//Ьтр.Ргее; 

епсі; 7/сідРо1е2РгаиСе11 


Если вы помните, у нас остались ещё две картинки в компоненте 
ІтадеЬЫІ - первая и последняя. Они предназначены для заполнения 
пустой клетки в левом верхнем углу сетки, в которой отсутствуют 
символы оцифровки. Можно ограничиться только первой картинкой, 
которая выводится в процедуре сІдРоІеОгаѵѵСеІІ, но мы сделаем 
простейшую анимацию. Всякое оживление изображения заключается в 
последовательной смене картинок на экране. У нас таких картинок всего 
две, и мы будем поочерёдно выводить их в угловую клетку. Промежуток 
времени между сменой изображений проще всего отмерять таймером. 
Один таймер у нас имеется, но он уже занят, поэтому добавим к проекту 
второй таймер Тітег2. Интервал установите в 500 мс (полсекунды). Чтобы 
следить за тем, какая в данный момент картинка на экране, мы заведём 
глобальную переменную 


^ІдРІазЬ: Ьоо1еап= іаізе; 


При каждом срабатывании таймера мы будем изменять её значение на 
противоположное, что позволит нам определить индекс картинки для 
вывода. 







Дважды щёлкните на значке компонента Тітег2 и в заготовке процедуры 
напишите код: 


//МИГАЮЩИЙ КВАДРАТИК 

ргосесіиге ТРогшІ.Тішег2Тішег (Зепсіег : ТОЪ^есГ); 
ѵаг 

гесГ: ТКесГ; 
п: іпГедег; 

Ьедіп 

гесГ:= сідРоІе . СеІІКесГ (0,0) ; 

Р1дР1аз1і: = поГ ИдРІазЬ; 

ІГ Г1дГ1азЬ= Гаізе Уіеп п:= 0 еізе п:= 19; 
ітІЫоГа . Бгаѵ (сідРоІе . Сапѵаз, гесГ-ІеГГ, гесГ-Гор, п) ; 
епсі; //Тітег2Тітег 



Немного усложнив эту процедуру, вы сможете сделать и более 
качественную анимацию. Смотрите пример в главе, посвящённой 
игре /.одо5. 


Кнопки 

В этой игре мы сделаем кнопки по тому же принципу, что и раньше, но при 
нажатии они будут изменять не только цвет, но и размеры. Изготовить их 
можно в растровом графическом редакторе и записать в формате ВМР с 
одноцветным фоном. Хранить их придётся на форме в компонентах ТІтаде 
(но можно и «по-новому» - в компоненте ТЫзіІтаде). 

Итак, загружаем картинки с кнопками в соответствующие компоненты (их 
свойства те же, что и в предыдущей игре] (Рис. 5.36]. 

- Іта§е1 - Іта§е2 


Сразу установим свойства компонентов Ітаде для «настоящих» кнопок, 
которые находятся над сетками: 

Ыате = ітдЫеѵСате 
= 4 

Тор = 0 (такое же значение и у всех других кнопок) 

юісііл = зб 

НеідЬ'Ь =36 
АиѣоЗіге = Тгие 
Сигзог = сгНапсіРоіпІ: 

Ніп'Ь = ' Новая игра ' 

ЗЬоѵНіп'Ь = Тгие 




Тгапзрагеп'Ь = Тгие 

ОпМоизеБоѵт = ітдЫеѵКЗатеМоизеОоѵт 

ОпМоизеЫр = ітдЫеѵСатеМоизеОр 


^ - 1та « ѳ9 ф- 

- Іта§е10 

Ыате = ітдОреп 

Ъв±Ь =40 

Ніп'Ь = ' Загрузить задачу с диска 
ОпМоизеБсжп = ітдОрепМоизеБоѵт 
ОпМоизеЫр = ітдОрепМоизеОр 

- Іта§е18 | 

- Іта§е19 

Ыате = ітдЗаѵеРоз 
= 76 

Ніп*Ь = 1 Записать текущую позицию 
ОпМоизеБотоі = ітдЗаѵеРозМоизеРоѵт 
ОпМоизеир = ітдЗаѵеРозМоизеОр 

Я) - Ігаа8е3 (я 

- Іта§е4 

Ыате = ітдКесЮпІу 

Ье?Ъ = 120 


- Іта§е5 ^ 

- Іта§еб 

Ыате = ітдіпѵегзе 

Ь еіЪ = 156 


^ ■ ИаяеП с 

- Іта§е12 

Ыате = ітд31:ер 

Ье^ = 208 


- Іта§е13 | ^ 

- Іта§е14 


Ыате = ітдЗоІи'Ьіоп 

Ье^ѣ = 244 



- Іта§е7 


- Іта§е8 
























Ыате = ітдСгеепОпІу 

Ье^Д = 296 


®> ' Ігаа8е15 


- Іта§е1б 


Ыате = ітдЗДор 
ЬеДД = 380 

Рис. 5.36. Новые кнопки! 

Теперь наполним глубоким смыслом и содержанием процедуры , которые 
будут вызываться при нажатии кнопок. Некоторые из них останутся в 
неизменном виде, поэтому их код здесь не приводится. 

Минимальным изменениям подверглась процедура для кнопки ітдЗіер. 
Они касаются только центрирования надписи с числом шагов: 

//ЗАДАТЬ ГЛУБИНУ ПЕРЕБОРА 

ргосесіиге ТРостпІ . ітдЗДерМоизеБоѵт (Зепсіег : ТОЬ^есД; ВиДДоп: ТМоизе- 
ВиДДоп; 

ЗіііДД: ТЗЫДДЗДаДе; X, У: ІпДедег); 

Ведіп 

//отцентровать число: 

ІЫЗДер . ЬеДД : = ітдЗДер.ЬеДД+ (ітдЗДер. МісіДІі- ІЫЗДер. ИісіДІі) 
сііѵ 2-1; 

ІЫЗДер . ЬеДД : = ітдЗДер.ЬеДД+ (ітдЗДер. ИісіДІі- ІЫЗДер . ИісіДІі) 
сііѵ 2-1; 

ІЫЗДер.Тор:= ітдЗДер.Тор+ (ітдЗДер.НеідЬД- ІЫЗДер. НеідііД) 
сііѵ 2-1; 

епсі; //ітдЗДерМоизеБоѵп 

ргосесіиге ТРогтІ. ітдЗДерМоизеЧр (Зепсіег: ТОІ^есД; ВиДДоп: ТМоизе- 
ВиДДоп; 

ЗіііДД: ТЗЫДДЗДаДе; X, У: ІпДедег); 

Ьедіп 

ІЫЗДер . ЬеДД : = ітдЗДер . ЬеДД+ (ітдЗДер . МісіДіі- ІЫЗДер. МісіДіі) сііѵ 

2; 

ІЫЗДер. Тор := ітдЗДер. Тор+ (ітдЗДер. НеідііД- ІЫЗДер. НеідііД) сііѵ 

2; 

епсі; //ітдЗДерМоизеДір 


При срабатывании кнопки ітдКедОпІу позиция на поле изменяется, 
поэтому её следует запомнить: 




ргосесіиге ТРогтІ. ітдКесіОпІуМоизеир (Зепсіег : ТОЬзеск; Виккоп: 
ТМоизеВиккоп; 

Зііікк: ТЗіііккЗкаке; X, У: Іпкедег); 

сідРоІе. Іпѵаіісіаке; 

Мешогуіп; 

ітдКесЮпІу.Ріскиге.Аззідп(ІтадеЗ.Ріскиге); 
епсі; //ітдКесЮпІуМоизеЦр 


Эту же строку добавьте в процедуры ітдСгеепОпІуМоиБеІІр, 
ітдІпѵегзеМоизеѴр и ітдІпѵег5е2Мои5еѴр. 

В этой игре добавились ещё две кнопки. Одна позволяет сохранить 
позицию на игровом поле: 


//ЗАПИСАТЬ ПОЗИЦИЮ НА ДИСК 

ргосесіиге ТРогтІ. ітдЗаѵеРозМоизеОоѵт (Зепсіег : ТОЬзесЬ; Виккоп: 
ТМоизеВиккоп; 

Зііікк: ТЗіііккЗкаке; X, У: Іпкедег); 

Ьедіп 

ітдЗаѵеРоз.Ріскиге.Аззідп(ІтадеІЭ.Ріскиге); 
епсі; //ітдЗаѵеРозМоизеБоѵп 

ргосесіиге ТРогтІ. ітдЗаѵеРозМоизеПр (Зепсіег : ТОЬзеск; Виккоп: 
ТМоизеВиккоп; 

Зііікк: ТЗіііккЗкаке; X, У: Іпкедег); 

Ьедіп 

ІтдЗаѵеРоз.Ріскиге.Аззідп(ІтадеІЭ.Ріскиге); 

ЗаѵеРоз; 

епсі; / / ітдЗаѵеРозМоизеЦр 


Вторая - загрузить позицию с диска: 


//ЗАГРУЗИТЬ ЗАДАЧУ 

ргосесіиге ТРогтІ. ітдОрепМоизеЦр (Зепсіег: ТОЬ^еск; Виккоп: ТМоизе¬ 
Виккоп; 

Зііікк: ТЗіііккЗкаке; X, У: Іпкедег); 

Ьедіп 

ік СатеЗкаке= дзЗоІикіоп кЬеп ехік; 
ітдОреп.Ріскиге.Аззідп(ІтадеЭ.Ріскиге); 

Ореп; 

епсі; //ітдОрепМоизеЦр 

ргосесіиге ТРогтІ. ітдОрепМоизеБоѵп (Зепсіег: ТОЬзеск; Виккоп: ТМоизе¬ 
Виккоп; 

ЗЬікк: ТЗЬіккЗкаке; X, У: Іпкедег); 

Ьедіп 

ік Сате8каке= дзЗоІикіоп кЬеп ехік; 
ітдОреп.Ріскиге.Аззідп(ІтадеІО.Ріскиге); 

//Ореп; 

епсі; //ітдОрепМоизеЦр 








Для их работы потребуются компоненты ТЗаѵеОіаІод 

ТОрепОіаІод 


у 


ТЗаѵеОіаІод 


И 


ТОрепИшІод 


(страница Ріаіодз Палитры компонентов ). 


Чтобы записать позицию на игровом поле, достаточно скопировать массив 
поля та^РоІе в файл на диске. Обратите внимание, что для хранения задач 
(позиций) нужно завести папку Рідигез в той папке, в которой находится 
выполняемый файл программы. Второе замечание: название задачи (имя 
файла), для удобства, выводится в заголовке формы. Так делается во 
многих программах, и мы не будем отступать от этой доброй традиции. Но 
придётся объявить константу с названием программы: 


ИАМЕ РКОС =' ЗПогіСате '; 


и переменную - для хранения имени файла: 


ЫатеЕід: зЕгіпд= 


И мне осталось напомнить вам, что процедура ЗаѵеРоз также должна быть 
объявлена - в описании типа формы: 


ргіѵаЕе 

{ Ргіѵаіе сіесІагаЦіопз } 

ргосесіиге Ргераге (Роіе: ТРгамСгісі; СоЮоипЕ, КоиСоипЦ: іпіе- 
дег) ; 

іипсЬіоп ІзКеасіу: Вооіеап; 
ргосесіиге ИемРІау; 

ргосесіиге ЗоІиЕіоп (пЗЕер : іпЕедег); 
ргосесіиге Кеасіу; 

ГипсЕіоп РоМоѵе(агг: ТРоІе; х, у: іпЕедег) : ТРоІе; 
ргосесіиге Метогуіп; 

ргосесіиге ЗаѵеРоз; 

//ЗАПИСАТЬ ПОЗИЦИЮ НА ИГРОВОМ ПОЛЕ 

ргосесіиге ТРогтІ. ЗаѵеРоз; 

ѵаг 

Е: ЕехЦГіІе; 

Гп,з: зЕгіпд; 
і,□: іпЕедег; 
сЬ.: сПаг; 

Ьедіп 

заѵесііаіоді. БеГаиШЕхЕ : = ' ЦхЦ ' ; 

заѵесііаіоді. ЕіІЕег : = 'Задачи (*.ЕхЦ) | * . ТХТ ' ; 

заѵесііаіоді. ЕіШегІпсіех : =1; 

з : =ех'Ьгасі:Гі1ера'(:Ц (арріісаііоп . ехепате) + ' ЕідигезХ ' ; 
заѵесііаіоді. ІпіЕіаЮіг : = з; 

заѵесііаіоді. ТіШе : = ' Запишите позицию на диск ' ; 
іі ИатеЕідО'' ЕПеп заѵесііаіоді. іііепате : = ИатеЕід 
















еізе заѵесііаіоді. іііепате : = 1 Еетр . ЕхЕ ! ; 
іі поЕ заѵесііаіоді.Ехесиісе ЕЬеп ехіЕ; 

//имя конечного файла: 
іп : = заѵесііаіоді. іііепате; 

ЫатеЕід:=іп; 
аззідпіііе(і,іп); 
гемгіЕе (і) ; 

//записать позицию : 

іог ^:= 1 Ео сідРоІе.КомСоипЕ-1 сіо Ьедіп 

О . — » » . 

О • г 

Гог і:= 1 Ьо ЬдРоІе.СоІСоипЬ-1 сіо Ьедіп 
ІЬ тазРо1е[і]|^] = 1 Ыіеп сЬ:='1' 
еізе сЬ :='0'; 
з:=з+сЬ; 
епсі; 

ѵгіЬеІп (і,з) ; 
епсі; 

сіозеіііе ( Ь ); 

Ьогті.сарЬіоп:= ЫАМЕ_РКОС + ' [' + ЫатеЕід + ' ] 

теззадеЬеер (0) 
епсі; //ЗаѵеРоз; 


Обратное действие, то есть загрузка задачи с диска, ненамного сложнее: 
дополнительно придётся проверить данные задачи (файл с условием 
задачи - обычный текстовый файл, поэтому его можно набрать в любом 
текстовом редакторе; это удобно, но может привести к ошибкам) и 
настроить размеры полей, ведь они могут измениться. Труднее всего 
выделить пункт в меню, соответствующий размерам нового поля, но и с 
этой проблемой можно справиться. 


//ЗАГРУЗИТЬ ЗАДАЧУ 

ргосесіиге ТРогшІ . Ореп ; 

ѵаг 

з: зЬгіпд; 

Г: ТехЬЕіІе; 
пЬіпез, Ьеп: іпЬедег; 
і,з:іпЬедег; 

зз: аггау[1..МАХ_РОЪЕ_НЕІСНТ] оЬ зЬгіпд; 
сотр : ТСотропепЬ; 

Ьедіп 

Ьогті. орепсііаіоді. ОеЬаиІЬЕхЬ : = ' ЬхЬ ' ; 

Ьогті. орепсііаіоді. ЕіІЬег : = 'ТехЬ Ьііез (*.ЬхЬ) |*.ТХТ'; 
з:=ехЬгасЬЬі1ераЫі (аррІісаЬіоп.ехепате) + 'ЕІСІЖЕ8\'; 
Ьогті. орепсііаіоді .ІпіЬіа1Віг:= з; 

Ьогті. орепсііаіоді. ТіЫе : = ' Загрузите новую задачу'; 

ІЬ поЬ Ьогті. орепсііаіоді. ЕхесиЬе Ыіеп ехіЬ; 






з : = Еогті. орепсііаіоді. Еііепате; 

// название задачи: 

ЫатеЕід:=з; 

{ $ і — } 

АззідпЕіІе(Е,ЫатеЕід); 

Кезеб(Г); 

{$і+} 

іб ІОКезиІбоО бііеп Ьедіп //- ошибка при загрузке файла 

арріісабіоп .МеззадеВох ('Такой сетки нет !',ЫАМЕ_РКОС, МВ_ОК); 
ехіб 
епсі; 

пЪіпез:=0; 

Ъеп:=0; 

иМІе поб еоб(б) сіо Ьедіп 
іпс(пЪіпез); 

//считать строку из файла: 

КеасЗІп (Г, 3) ; 

зз[пЪіпез]:=з; 

Іб (ЪепдбЪ(з) О Ъеп) апсі (Ъеп<>0) ТЪеп Ьедіп 

арріісабіоп. МеззадеВох ('Неверная длина строки!',ЫАМЕ_РК0С, 
МВ_0К); 

ехіб 

епсі 

еізе 

Ъеп:= ЪепдЪЬ(з); 

епсі; 

//закрыть файл: 

СІозеЕіІе(Е); 

//проверить данные: 

іб (Ъеп> МАХ_РОЪЕ_ИІБТН) ог (пЪіпез> МАХ_Р0ЪЕ_НЕІ6НТ) ЪЬеп Ьедіп 
арріісабіоп.МеззадеВох(' Неверные данные !',ЫАМЕ_РК0С, МВ_0К); 
ехіб 
епсі; 

богті.сарбіоп:= ЫАМЕ_РКОС + ' [' + ЫатеЕід + ']'; 

//вывести новые поля: 

Ргераге (сідРоіе, Ъеп+1, пЪіпез + 1); 

Ргераге(ЬдРо1е2, Ъеп+1, пЪіпез+1); 

//очистить массивы полей: 

бог Л = 1 бо сідРоІе.Р.оиСоипб-1 сіо 

бог і:= 1 бо сідРоІе. СоІСоипб-1 сіо Ьедіп 
тазРоІе [і, Л : = ѴШІТЕ; 
шазРо1е2[і,Л := ИНІТЕ 
епсі; 

//заполнить массив новыми данными: 
бог Л=1 бо пЪіпез сіо Ьедіп 







Іог і:=1 ко Ъеп сіо Ьедіп 
іі зз[з,і] = ' 0 ' РЬеп 
тазРо1е[і] [ 3 ] := О 
еізе 

тазРо1е[і][ 3 ]:= 1; 

епсі 

епсі; 

//запомнить начальную позицию: 

Метогуіп; 

сідРоІе. 144311(13110; 
сідРо1е2 . Іпѵаіісіаііе; 

//выделить пункт в меню, соотв. размеру поля: 
сотр : =ГіпсіСотропеп1і ( ' ті ' + іп 1 зЬо 5 Ііг (Іеп) + ' х ' +іп'Ы:оз1:г (Іеп) ) ; 
(сотр аз ТМепиІІіет) .СЬескесі:= Тгие; 
епсі; //Ореп; 


Пользуясь этими процедурами, вы можете создать библиотеку заданий на 
диске и в будущем использовать свои лучшие находки. Дальнейшее 
развитие этой темы вы найдёте в описании игры Іодоз. 

Будет разумно сохранять на диске и решения задач, что и сделано в модуле 
формы /гтРгоСокоІ (Рис. 5.37). 



Рис. 5.37. Протокольная форма! 


ипі'Ь Рго'ЬокоІШіі'Ь; 




























іпЬегіасе 

изез 

Міпсіоиз, Меззадез, ЗузШсіІз, Сіаззез, СгарЬісз, СопЬгоІз, 
Біаіодз, ЗЬсіСЬгІз, ВиЬЬопз; 

Рурѳ 

ТігтРгоЬокоІ = сіазз (ТГогт) 

ЬізЬВохІ: ТЪізЬВох; 
зЪЬЗаѵеОЬѵ: ТЗреесіВиЬЬоп; 

ЗреесіВиЬЬопІ: ТЗреесіВиЬЬоп; 

ЗаѵеБіаІодІ: ТЗаѵеБіаІод; 

ргосесіиге ЗреесШиЬЬопІСІіск (ЗепЬег : ТОЪ^есЬ); 
ргосесіиге зЪЬЗаѵеОЬѵСІіск (Зепсіег: ТОЪ^есЬ); 

ргіѵаЬегіѵаЬе 

{ РгіѵаЬе ЬесІагаЬіопз } 

риЫіс 

{ РиЫіс ЬесІагаЬіопз } 
епсі; 

ѵаг 

ЬгтРгоЬокоІ: ТЬгтРгоЬокоІ; 
ітрІетепЬаЬіоп 
изез ЗЬюгЬСате; 

{$К *.ОЕМ} 

//ОЧИСТИТЬ СПИСОК 

ргосесіиге ТЬгтРгоЬокоІ. ЗреесШиЬЬопІСІіск (Зепсіег: ТОк^есЬ) ; 

Ьедіп 

ЬізЬВохІ.ІЬетз.Сіеаг; 
епсі; 

//ЗАПИСАТЬ ОТВЕТ 

ргосесіиге ТЬгтРгоЬокоІ. зЪЬЗаѵеОЬѵСІіск (Зепсіег: ТОЬіесЬ) ; 

ѵаг 

з,зз,Ьп: зЬгіпд; 
і: іпЬедег; 

Ь: ЬехЬЬіІе; 

Ьедіп 

заѵесііаіоді. ОеЬаиІЬЕхЬ : = ' ЬхЬ ' ; 

заѵесііаіоді. ЕіІЬег : = ' Решения (*.ЬхЬ) | * . ТХТ ' ; 

заѵесііаіоді. ЕіІЬегІпсІех: =1; 

з : =ехЬгасЫ:і1ераЫі (арріісакіоп . ехепате) + ' Гідигез\ ' ; 
заѵесііаіоді. ІпіЬіаІОіг: = з; 

заѵесііаіоді. ТіЫе : = ' Запишите решение на диск'; 


Еогтз, 




іЬ ЫатеРідо' ' Ыіеп Ьедіп 

з : =ехЬгасЬГііеЫате (ЫатеГід) ; 

//ІізЬЬохІ.іЬетз. асМ (з); 
з з : = 1 1 ; 
і :=1; 

иііііе (з[і] <>'.') апсі (і<=1епдЫі (з)) сіо Ьедіп 
33:=зз + з [і] ; 
іпс(і) 
епсі; 

зз:=зз+'оЬѵ.ЬхЬ'; 

//ІізЬЬохІ. ІЬетз . асісі (зз) ; 
заѵесііаіоді. Ьііепате : =зз 
епсі 
еізе 

заѵесііаіоді. Ьііепате : = ' оЬѵ_Ьетр . ЬхЬ ' ; 

ІЬ поЬ заѵесііаіоді. ЕхесиЬе Ыіеп ехіЬ; 

//имя конечного файла: 

Ьп: = заѵесііаіоді. Ьііепате; 
аззідпЬііе(Ь, Ьп); 
геѵгіЬе(Ь) ; 

Ьог і:=0 Ьо (ЬізЬВохІ.ІЬетз.СоипЬ - 1) сіо 
мгіЬеіп (Ь,ЬізЬВохІ.ІЬетз.ЗЬгіпдз[і]); 
СІозеЬіІе(Ь) ; 

МеззадеЬеер (0) 
епсі; 
епсі. 


Теперь пройдёмся по остальным процедурам программы ЗНогіСате. 

При создании формы нужно увеличить размеры полей до 5 х 5, так как 
вокруг них добавилась оцифровка: 


//СОЗДАТЬ ФОРМУ 

ргосесіиге ТРогшІ . РогтСгеаЬе (Зепсіег : ТОЬ^есЬ) ; 

Ьедіп 

//подстраиваем величину формы под размеры сеток: 
АиЬо5іге:= Тгие; 

//установить размеры полей по умолчанию: 

Ргераге (ЬдРоІе, 5, 5); 

Ргераге(ЬдРо1е2, 5, 5); 

//начать новую игру: 

ЫеѵРІау ; 

епсі; //ЕогтСгеаЬе 


Основные изменения в процедуре ЫеѵѵРІау связаны с выводом названия 
задачи в заголовок формы и ограничением числа ходов в процедуре 
возврата ходов Рейо. В глобальной переменной 






Носі шах: іпГедег= 0; 


будет храниться число ходов, сделанных при решении задачи, тогда 
процедура Кесіо не уйдёт «за границу». 

В ЗкогіСате даже на поле 4x4 клетки возможны нерешаемые задачи, 
поэтому я оставил прежний алгоритм для создания случайной позиции на 
полях. Впрочем, никакая другая позиция, кроме нулевой, на поле-образце в 
данной программе не используется и оно присутствует только для 
дальнейшего развития игры. 


//ПОДГОТОВКА К НОВОЙ ИГРЕ 

ргосесіиге ТРогтІ . ИеѵгРІау ; 

ѵаг 

і, з: іпГедег; 
х, у: іпГедег; 

Ьедіп 

//обнулить число ходов: 

Носі: = 0; Ноб_тах: = 0; 

ІЫНосі. СарГіоп : = 'Ход - 0'; 

//задача не имеет названия: 

Гогті.сарГіоп:= ЫАМЕ_РКОС + ' []'; 

//сделать случайные ходы: 
гапсіоті ге; 

//очистить левое поле: 

Гог Л = 1 Го сідРоІе.КоиСоипГ-1 сіо 
Гог і:= 1 Го сідРоІе. СоІСоипГ-1 сіо 
тазРо1е[і,Л:= ИНІТЕ; 

//сделать случайные ходы: 

Гог і:= 1 Го 7 + гапбот (сідРоІе . Со1СоипГ*сідРо1е .КоиСоипГ+1-7) сіо 
Ьедіп 

х:= Капсіот (сідРоІе . СоІСоипГ-1)+1; у:= Капсіот (сідРоІе .КоиСоипГ- 
1 ) +1; 

тазРо1е:= ОоМоѵе(тазРоІе, х, у); 
епсі; 

сідРоІе. ІпѵаІісіаГе; 

//задать поле-образец: 

ІГ Сате= ЕиІІЗаІГо ГЬеп Ьедіп //- полный переворот 
//выставить на поле зелёные фишки: 

Гог ^:= 1 Го ЬдРо1е2.КоиСоипГ-1 сіо 
Гог і:= 1 Го сідРоіе2. СоІСоипГ-1 сіо 
шазРо1е2[і,Л := ИНІТЕ 

епсі 

еізе Ьедіп //- переход к образцу 
//сделать случайные ходы: 

Гог і:= 1 Го 7 + гапбот (сідРо1е2 . Со1СоипГ*сідРо1е2 .КоиСоипГ+1-7) 
бо Ьедіп 






х:= Капсіот (ЬдРо1е2 . СоІСоипі) ; у:= Капсіот (ЬдРо1е2 . КоѵСоипі) ; 
тазРоіе2:= БоМоѵе(тазРоіе2, х, у); 
епсі; 
епсі; 

сідРо1е2 . Іпѵаіісіаіе; 

//запомнить начальную позицию: 

Метогуіп; 
епсі; //ИеиРІау 


В процедуре нажатия кнопки мыши нужно проверить, не нажата ли она на 
клетке с оцифровкой. В этом случае ход, разумеется, делать не следует. 


//ПЕРЕВЕРНУТЬ ФИШКУ ИЛИ СДЕЛАТЬ ХОД 

ргосесіиге ТРогшІ . сідРоІеМоизеБоѵт (Зепсіег : ТОЪ^есЬ; Виііоп: ТМоизе- 
Виііоп; 

БЫТЬ: ТЗЬіііЗіаіе; X, У: Іпіедег) ; 
ѵаг 

АСо1,АКом: іпіедег; 

Ьедіп 

//координаты мыши: 

ДдРоІе.МоизеТоСеІІ(х,у,АСоІ,АКоѵ); 

//нельзя делать ходы на клетки с оцифровкой: 
іі АСоІ * АКои = 0 іЬеп ехіі; 

//нажата левая кнопка мыши и клавиша БЫТЬ - 
//инвертируем цвет клетки: 

іі: (ззЪеіі іп зЬііі) апсі (ззЗЬііі іп зЬііі ) іЬеп Ьедіп 
іі тазРоіе[АСоІ,АКоѵ]= 1 іЬеп тазРоіе[АСоІ,АКоѵ]:= О 
еізе тазРоіе[АСоІ,АКои]:= 1; 

ДдРоІе. Іпѵаіісіаіе; 
епсі 

//нажата левая кнопка мыши без клавиши ЗЬііі - 
//делаем ход: 

еізе іі ззЪеіі іп зЬііі іііеп Ьедіп 

іпс (Носі) ; ІЫНосі. Сарііоп : = 'Ход - ' + іпііозіг (Носі) ; 
тазРоІе:=БоМоѵе(тазРоіе, АСоІ, АКои); 

ДдРоІе. Іпѵаіісіаіе; 

//запомнить ход: 

Моѵез [Носі] .х:= АСоІ; 

Моѵез [Носі].у:= АКоѵ; 

Носі_тах:= Носі; 

//проверить, не решена ли задача: 
іі ІзКеасіу ЬЬеп Кеасіу; 
епсі; 

епсі; //ЬдРоІеМоизеОоип 


В процедуру Ргераге добавьте только одну строку: 


Носі шах : = 0; 









Практически целиком придётся исправить процедуру выполнения хода, 
так как изменились правила игры: 


//выполнить ход 

РипсЬіоп ТРогтІ.БоМоѵе(агг: ТРоІе; х, у: іпЬедег): ТРоІе; 

ѵаг і: іпРедег; 

Ьедіп 

//инвертировать заданную клетку: 
агг[х,у]:= аЬз(агг[х,у]-1); 

//инвертировать ряды: 

Рог і:= Мах(у-1,1) Ро Міп (у+1, ДдРоІе .КоиСоипР-1) сіо //- 
вертикальный 

агг[х,і]:= 1 - агг[х,і]; 

Рог і:= Мах(х-1,1) Ро Міп (х+1, ДдРоІе . СоІСоипР-1) сіо //- 
горизонтальный 

агг[і,у]:= 1 - агг[і,у]; 

гези1Р:= агг; 
епсі; //БоМоѵе 


В процедуре решения задачи мы должны учесть ряды с оцифровкой, весь 
остальной код изменять не нужно: 


//НАЙТИ ПЕРЕХОД ОТ ОДНОЙ ПОЗИЦИИ К ДРУГОЙ 

ргосесіиге ТРогтІ.ЗоІиЬіоп (пЗЬер : іп'Ьедег) ; 


//записать ходы в протокол: 

ргосесіиге ЗаѵеРоз; 

ѵаг 

п: іпРедег; 
х, у: іпРедег; 
з: зРгіпд; 

Ьедіп 

РгтРгоРокоІ. ІізРЬохІ. іРетз . асісі ( 1 1 ) ; 

Рог п:= 1 Ро Носі сіо Ьедіп 

о . — ! ! . 

О • г 

х:= Моѵе[п] тосі и; у:= Моѵе[п] сііѵ и; 

РгтРгоРокоІ. ІізРЬохІ. іРетз . асісі (іпРРозРг (п) + '. ' + ІеР- 

Рег[х]+ ' ' +іпРРозРг(у)); 

епсі; 

РгтРгоРокоІ. ІізРЬохІ. іРетз . асісі ( ' ' ) ; 
епсі; 

Ьедіп 


//переходим к следующей клетке поля: 
пехРСеіі: 

іпс(пСеіі[Ной]); 






ѵЬіІе (пСеІІ [Носі] тосі ѵ = 0) ог (пСеІІ [Носі] сііѵ ѵ= 0) сіо 
іпс (пСеІІ [Носі]) ; 

епсі; //Зоіикіоп 

Для вывода оцифровки потребуется глобальная константа 

1еЬЬег= ' АВС0ЕГ6НІ'; 


Конечно, можно обойтись и без нее - в этой программе, а вот в других 
такой способ может и пригодиться. 

Так как мы решили увеличить размеры полей до 9 х 9 клеток, то в меню 
нужно добавить два пункта - ті8х8 (Та§=8, 5ЬогіСиІ=Р8) и ті9х9 (Та§=9, 
5ЬогіСиІ=Р9). Из-за оцифровки нам придётся подправить код в процедуре, 
обрабатывающей нажатие на пункты меню ті4х4 - ті9х9\ 


//ИЗМЕНИТЬ РАЗМЕРЫ ПОЛЕЙ 

ргосесіиге ТРогшІ .ші4х4С1іск (Зепсіег: ТОЬ^есЬ) ; 

Ьедіп 

//размеры поля: 

п:= (Зепсіег аз ТМепиІЬет) . Тад+1; 
епсі; //ті4х4С1іск 


То же самое касается и следующей процедуры: 


//ВОССТАНОВИТЬ ЗАПОМНЕННУЮ ПОЗИЦИЮ 

ргосесіиге ТРогшІ .шіМешогуОи'ЬСІіск (Зепсіег: ТОЬіесЬ) ; 

Ьедіп 

сазе ѵг-1 о€ 

4: гпі4х4 . Сііескесі: = Тгие; 

5: ті5х5 . СПескесі: = Тгие; 
б: ті бхб . Сііескесі: = Тгие; 

7: ті7х7 . Сііескесі: = Тгие; 

8 : ті8х8 . Сііескесі: = Тгие; 

9: ті9х9 .СЬескесі: = Тгие; 

епсі; 

епсі; // тіМетогуОиЬСІіск 


В процедуру тіКесІоСІіск нужно добавить проверку на возможность 
возврата хода, о чём мы говорили ранее: 


//ОТМЕНИТЬ ПОСЛЕДНИЙ ВОЗВРАТ ХОДА 

ргосесіиге ТРогшІ .тіКесІоСІіск (Зепсіег: ТОІ^есѣ) ; 















Ьедіп 

Но<1< Но<і_тах ■Ыіеп іпс (Ьосі) еізе ехіЪ; 

епсі; //тіКесІоСІіск 


И наконец, я хочу напомнить, что пункт меню тіНіпі: оставлен для ваших 
собственных изысканий, поскольку в программе отсутствует процедура 
вывода подсказок. 


Помогаем по-новому! 

Давайте немного улучшим помощь для этой игры. Если файл справки 
достаточно длинный, то просматривать его будет не очень удобно. 
Поэтому лучше разбить его на отдельные разделы (темы), а на первой 
странице сделать небольшое оглавление, позволяющее быстро перейти в 
нужный раздел. 

Прежде всего, подготовьте в текстовом редакторе файл справки (на этот 
раз мы воспользуемся редактором Місгозо/і ѴѴогсІ, так как нам потребуются 
такие его возможности, которые могут отсутствовать в более простых 
программах). Примерный вид справки показан ниже: 

ЗНогіСате Неір 

ЗНогіСате - занимательная логическая игра-головоломка, в кото¬ 
рой требуется все шарики на левом, игровом поле сделать зелё¬ 
ными (как это показано на правом, контрольном поле) за мини¬ 
мальное число ходов. 


Ход состоит в изменении цвета любого шарика на игровом поле 
(зелёный шарик становится фиолетовым, фиолетовый - зелёным), 
но при этом изменяют цвет и все соседние по вертикали и горизон¬ 
тали шарики. Чтобы выполнить ход, достаточно щёлкнуть мышкой 
по выбранному шарику. 







Управляющие кнопки : 
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- начать новую игру, на игровое поле выводится новое задание, 


- загрузить задачу с диска, 


- сохранить позицию на диске, 


- сделать все шарики на игровом поле фиолетовыми, 


- изменить цвет всех шариков игрового поля на противоположный, 


- установить глубину поиска решения задачи, 


-найти решение задачи, 


- сделать все шарики правого поля зелёными, 


- изменить цвет всех шариков правого поля на противоположный, 
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- остановить поиск решения задачи. 


Всплывающее мен/о: 

Вы также можете управлять программой с помощью всплывающего меню . 
Чтобы вызвать его, нажмите правую кнопку мыши. 


і ^ Запомнить позицию 

СігІ+І 

оГ Восстановить позицию 

СігІ-Ю 

Ход назад 

СігІ-Ш 

рі Ход вперёд 

сы-нг 


|Ш 4x4 к 

Р4 

5 х 5 

Р5 

6 x 6 

Р 6 

::::::: 7x7 

Р7 

======== 3x8 

РЗ 

| 9x9 

Р9 

Щ Полный переворот 

СЫ-Н= 

И Переход 

СЫ+Р 

1 1 Подсказки 

СігІ-Ж 

Правила 

СігІ-Ф 


Первая группа команд поможет вам самостоятельно найти короткое реше¬ 
ние задачи. Вы можете запомнить любую позицию на поле, а затем восста¬ 
новить её, а также вернуться назад на любое число ходов (или вернуть уже 
сделанные ходы при откате). 

Вторая группа команд устанавливает размеры полей. Разумеется, чем 
больше размер поля, тем труднее будет решить задачу. 

У игры имеется две разновидности - полный переворот, когда все шарики 
на игровом поле нужно сделать зелёными, и переход, когда следует «пере¬ 
красить» шарики на игровом поле так, как на правом поле-образце. В данной 
версии программы реализован только полный переворот. 

Если включен режим подсказки, то программа будет отмечать те клетки 
игрового поля, на которые нужно ходить. В данной версии программы этот 
режим отсутствует. 

Не забудьте выделить заголовки с помощью стилей, чтобы они составили 
оглавление справки! Также между всеми разделами необходимо вставить 
символ конца страницы (меню Главная/Вставка/Разрыв страницы ). 

Закончив работу с текстом справки, сохраните файл с расширением РТР. 

Теперь вы можете откомпилировать его в какой-нибудь программе, 
предназначенной для создания справочных файлов. Например, в 






































программе Неір & Мапиаі вы сможете получить справку в различных 
форматах - НЬР, СНМ, ЕХЕ, НТМЬ, РОЕ. 

Пусть это будет исполняемый файл 5ког1:Сате_НеІр.ехе в папке Неір. Тогда 
процедура вызова справки будет такой: 


//ПОКАЗАТЬ ФАЙЛ СПРАВКИ 

ргосесіиге ТРогхпІ . шіНеІрСІіск (Зепсіег : ТОк^есЬ); 
ѵаг 

ЗЕІпЬо: ТЗЬеІІЕхесиЬеІпЬо; 

ЕхіЬСосіе: БИОКО; 

ЕхесиЬеЕііе: зЬгіпд; 

Ведіп 

ііісіе; 

ЕхесиЬеЕііе := ' Неір/8ЬюгЬСате_Не1р ' ; 

ЕіІІСЬаг(ЗЕІпЬо, ЗігеОЬ(ЗЕІпЬо), 0) ; 

ЗЕІпЕо.сЬЗіге := ЗігеОЬ (ТЗііеІІЕхесиЬеІпЬо) ; 
міЬЬ. ЗЕІпЬо сіо Ьедіп 

ЬМазк := ЗЕЕ_МАЗК_ШСЬОЗЕРКОСЕЗЗ; 

НпЬ := АррІісаЕіоп. НапЫе; 

ІрЕіІе := РСЬаг(ЕхесиЬеЕііе); 
пЗЬовд := 5И_5НОИШКМАЬ; 
епсі; 

ІЬ ЗЬеІІЕхесиЬеЕх(ѲЗЕІпЬо) ЬЬеп Ьедіп 
гереаЬ 

АррІісаЕіоп.РгосеззМеззадез; 

СеЬЕхіЬСосіеРгосезз (ЗЕІпЬо. ііРгосезз, ЕхіЬСосіе) ; 
ипЬіІ (ЕхіЬСосіе О ЗТІЬЬ_АСТІѴЕ) ог АррІісаЕіоп. ТегтіпаЬесі; 
епсі 

еізе ЗЬоѵМеззаде(' Еггог ! ' ) ; 
зііоѵ; 

епсі; //шіНеІрСІіск 


При выборе пункта меню Правила окно приложения исчезнет с экрана и 
появится текст справки. В левой части окна находится список разделов, 
соответствующий заголовкам в тексте справки. Щёлкнув на одной из 
строк, вы попадёте в нужное место справки (Рис. 5.38). 

После того как вы закроете окно справки, на экране вновь появится окно 
приложения. 
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ЗЬогіОате - занимательная логическая нгра<аіа€аіомка. в 
которой треоуспи я все шарики на левом, игровом поле сослать 
зелёными (как оно показано на правом, контрольном поле} за 
минн.иа.іьнос число 


Ход состоит в изменении цветя любого шярикя ня игровом поле 
ІіЫА шарик І ІЛМОЫ 1 КН Фим. і сювы.м, фиолетовый н.пнычі. 


Рис. 5.38. Справка с оглавлением! 



В операционной системе УѴіпсІо\л/5 7 справка работает неверно. 
Имейте это в виду! 


Искусство побеждать 

Казалось бы, правила игр ХогСате и ЗкогССате настолько похожи, что и 
задачи должны решаться почти одинаково. Да не тут-то было! Ни одно из 
наших правил для игры ХогСате здесь не действует, всё нужно начинать 
сначала! 

Впрочем, стратегию игры найти нетрудно. Достаточно переворачивать 
фиолетовые фишки, начиная с верхнего ряда. Сделать это можно разными 
способами, и все они ведут к освобождению верхних рядов. Например, вы 
можете ходить последовательно в соседние справа или снизу клетки, но 
лучше подыскать более короткие комбинации уничтожения фиолетовых 
фишек. 

Как бы то ни было, в итоге фишки останутся только в двух нижних рядах 
(легко избавиться и от предпоследнего ряда, но, если вы посмотрите на 
шаблон в начале раздела, то поймёте, что он занимает именно два ряда у 
нижней границы]. Конечно, с равным успехом можно сгонять фишки к 




















верхней или боковой границе поля, но это ничего не изменит в решении 
задачи. 

Оставшиеся в двух последних рядах фишки должны либо сразу составить 
нужную фигуру {уголок или букву Т вверх тормашками), либо легко 
уничтожаться, не «залезая» в верхние ряды. Для поля 4x4 клетки так 
всегда и получается, поэтому здесь вы не встретите большого 
сопротивления со стороны фиолетовых фишек, хотя, вероятно, вы придете 
к победе не самым коротким путём. А вот с другими полями всё не так 
просто! Произвольное уничтожение фиолетовых фишек обычно приводит 
к нерешаемым в пределах последних двух рядов расположениям фишек. 
Следовательно, переворачивать фишки в предыдущих рядах нужно так, 
чтобы получить выигрышную заключительную позицию. Если вам удастся 
найти правила выбора промежуточных ходов, то искусство побеждать 
станет наукой, а ваше имя навсегда останется в памяти благодарных 
игроков. Дерзайте! 



Исходный код программы находится в папке 5ЬогІ. 




Другие игры-оборотни 

В игре Ріаі Сате (версия 1.0, 2001 г.] (Рис. 5.39] Дмитрия Шуйского вместе 
с «эпицентрической» клеткой изменяют цвет и все остальные клетки ряда 
- только вертикального или только горизонтального (а не обоих сразу, как 
в игре Флип-Флоп). 

Поскольку щелчок на клетке поля не может однозначно 
идентифицировать ваши намерения, то щёлкать следует на оцифровке 
вокруг поля (так что она может пригодиться не только при записи ходов!). 
Других сложностей ни в реализации правил, ни в решении задач, как 
будто, нет. 



Рис. 5.39. РІоі Сате 


Гораздо более изощрённое правило перекрашивания клеток вы найдёте в 
игре Камешки (версия 1.7, 1999 г.) Здесь предлагается изменять цвет 
клеток по периметру квадрата 3x3 клетки (исключая центральную). 

Задания выводятся последовательно из встроенной библиотеки, 
выбирать самостоятельно вы их не сможете. Другое неудобство игры - 
поле фиксированных размеров 7x5 клеток (Рис. 5.40). 


















Рис. 5.40. Камешки 

Взяв поле больших размеров и набор разных шаблонов переворачивания 
фишек, вы сможете получить гораздо более интересные игры. 

Вот, пожалуй, и все сколько-нибудь заметные игры-оборотни (возможно, 
вам известны и другие). Как видите, сделано не много, так что 
программисты головоломок в большом долгу перед человечеством. Зато 
каждый из вас может отличиться на поприще создания новых игр! 




































Чёт и нечет 


Числа правят миром. 
Пифагорейское 


Проверка на чётность - достаточно простой приём, который позволяет, 
однако, решать сложные задачи. Например, Евклид (или даже его 
предшественники из пифагорейской школы] с его помощью доказал 
иррациональность квадратного корня из двойки. Нам тоже довелось 
воспользоваться проверкой на чётность при программировании игры 
ХогСате. Кроме того, она бывает полезна при нахождении решений 
перестановочных и топологических задач, а также многих головоломок. 



«Проверкой на чётность» занимаются и девушки, гадающие на 
ромашке - «любит-не любит», и сатирик-юморист Михаил 
Задорнов, убеждённый, что женщинам следует дарить 
исключительно нечётное число цветов, и «менеджеры по 
продажам», уверенные, что покупатель с большим удовольствием 
выложит 35 рублей, нежели 32. 


Вообще, люди с удивительным упорством предпочитают одни 
числа другим, например тройка и семёрка явно предпочтительнее 
двойки или восьмёрки. Очень любимы числа, оканчивающие на 0 и 
5 (вспомните юбилейные даты). Далее следуют числа, 
оканчивающиеся на 2, 3, 7, б, 4, 9, 1. Причина тёплого отношения к 
«круглым» числам, конечно, заключается в десятичной системе 
счисления, а вот с остальными всё более загадочно. Впрочем, и 
природа в целом не одинаково относится к чётным и нечётным 
числам. Так, большинство животных (исключая иглокожих и 
головоногих) имеют чётное количество конечностей (следствие 
симметричности их тела), химические элементы с нечётными 
порядковыми номерами обычно более редки, чем соседние с ними 
чётные, а потому и более дороги. Теплота плавления 
углеводородов, начиная с гептана, имеющих чётное число атомов 
углерода в цепочке, заметно выше, чем у соседних с ними нечётных 
углеводородов. И эти примеры можно продолжать и продолжать... 


Но вернёмся к нашим заботам. Для плавного перехода к теме рассмотрим 
шуточный фокус с тремя пустыми бокалами (годятся и стаканы, и другая 
посуда). Поставьте их на стол так, чтобы два бокала стояли ножками 


(донышками] вверх, а между ними находился один бокал ножкой вниз (Рис. 
5.41]. 


т 

Рис. 5.41. Ножки - на ширине плеч 

Необходимо за три «хода», переворачивая каждый раз одновременно два 
бокала, поставить все бокалы ножками вниз (Рис. 5.42]. 

т 

Рис. 5.42. Правильное положение 
Сделать это нетрудно. 

1. Переворачиваем первый и второй бокалы (Рис. 5.43). 

ш 

Рис. 5.43. Первый ход 

2. Переворачиваем первый и третий бокалы (Рис. 5.44). 

ш 

Рис. 5.44. Второй ход 

3. Переворачиваем первые два бокала - задача решена (Рис. 5.45). 

ш 

- Рис. 5.45. Третий ход 



Теперь незаметно переверните средний бокал ножкой вверх (Рис. 5.46] 


т 

Рис. 5.46. Хитрый трюк 

и предложите кому-нибудь повторить фокус. 

Если вы сравните последнюю картинку с первой, то легко заметите, что 
положение бокалов изменилось, и теперь головоломку невозможно 
решить за любое число ходов. И вот почему. 

В первом случае в правильном положении (ножкой вниз] находится 1 
бокал, а в конечном положении - 3. Оба эти числа нечётные. Во втором 
случае в правильном положении находятся 2 бокала - чётное число, а в 
конечном положении те же 3 бокала - нечётное число. Но при 
одновременном переворачивании двух бокалов чётность «системы» не 
изменяется. 

Если мы перевернём из положения (Рис. 5.47] 

ш 

Рис. 5.47. Новое исходное положение 

два бокала ножками вверх (первый и третий], то в правильном положении 
будет находиться 0 бокалов - чётное число (будем считать, что это так]. 
Если перевернуть другую пару бокалов, то ситуация вообще не изменится. 
Легко проверить, что и следующие ходы не нарушат чётности позиции, а 
это значит, что она никогда не станет нечётной и фокус повторить не 
удастся. 

Если вы замените бокалы нашими фишками с двумя сторонами, то сразу 
поймёте, что этот фокус - всего лишь разновидность головоломок- 
оборотней, в которой все фишки вытянуты в одну линию. 

Пусть в начальной позиции все бокалы стоят правильно - ножками вниз 
(Рис. 5.48] 


ш 

) 

Рис. 5.48. Правильное положение 
а в конечной - все ножками вверх (Рис. 5.49). 

ш 

Рис. 5.49. Конечное положение 

Первая позиция нечётная, вторая - чётная, так что «фокус не удастся». Но 
попробуем решить общую задачу (см. журнал Наука и жизнь, №10 за 1982 
год). Пусть имеется т бокалов ножками вниз, из которых за один раз 
можно перевернуть п любых бокалов. Требуется за минимальное число 
ходов получить позицию, в которой все бокалы находятся ножками вверх. 
Например, решим такую задачу: т = 7,п = 5 (Рис. 5.50). 




Рис. 5.50. Задачка! 

Для удобства мы напишем небольшую программу для решения таких 
головоломок, ведь они могут быть интересны и вашим знакомым. 


«Ножки вверх!», или Головоломка с бокалами 

Начните новый проект. Подготовьте картинки с бокалами в двух 
положениях и двух цветов. Как обычно, начните с подготовки формы (Рис. 
5.51). 

=14 

Тор = 119 (расположите форму на экране так, чтобы были видны все 
бокалы) 

етісШі = 77 0 

НеідЬ*Ь = 238 (размеры формы будут подгоняться под компоненты при 


ОеІрНі в примерах, играх и программах 


запуске программы, поэтому сильно не старайтесь) 
Вогсіегісопг = [ЫЗузкетМепи] 

Сарѣіоп = ' Бокалы' 

Соіог = сІШііБе 

Ісоп.Ба'Ьа - нарисуйте значок программы 
ОпСгеа'Ье = ГогшСгеаБе 



Рис. 5.51. Интерфейс приложения 


Поместите картинки на хранение в компоненты ТІтаде\ 



теісііл = 40 

НеідЬѢ = 67 (размеры картинок) 

Аиѣо8іге = Тгие 
Тгапзрагеп'Ь = Тгие 
ѴізіЫе = Гаізе 


«Игровые» бокалы загрузите в компоненты Ітадеі.. Ітаде19\ 

Тад = 1, 2, 3, ... 

= 0, 40, 80, ... 

Тор =36 
ИІ4Ы1 =40 
НеідЬ-Ь =67 
Аиѣо8іге = Тгие 
Тгапзрагеп'Ь = Тгие 

ОпСІіск = ІшадеІСІіск (для всех компонентов). 

Над бокалами установите метку ЬаЪе12 с напоминанием: 

Ье^Ъ = 4 
Тор = 8 

= 308 

НеідЬѢ = 16 












































































































СарЬіоп = 'Переверните все бокалы ножками вверх! ' 

РопЬ.СоІог = сІКесі РопЬ.ЗЬуІе = [ізВоІсІ] 

Изменять количество бокалов на «столе» мы будем с помощью 
скроллера зЪВок типа ТЗсгоПВаг (вы можете найти и более изящное 
решение, если сочтёте нужным]: 

Ье^Ь = О 

Тор = 136 

Ш.ЫЬЪ = 2 01 
НеідЪЬ =16 

Мах = 19 (максимальное число бокалов) 

Міп = 5 (минимальное число бокалов) 

Розі'Ьіоп = 7 (значение по умолчанию) 

ОпСЪапде = зЬВокСЬапде 

Текущее значение числа бокалов можно увидеть в метке ІЫВок: 

ь еіъ =212 
Тор = 136 

ИісіЪЪ = 21 
НеідЪЬ = 20 

АІідптепЬ = ЬаКідЪЬ ИизЬИгу 

АиЬоЗіге = Раізе 
СарЬіоп = '7 ' 

РопЬ.НеідЪЬ = -16 
РопЬ.ЗЬуІе = [РзВоІсі] 

Аналогично мы будем задавать и число одновременно переворачиваемых 
бокалов скроллером зЪРегеѵ. 

Ье^Ь = 0 
Тор = 188 

ИісіЪЪ = 201 
НеідЪЬ = 16 
Мах = 18 
Міп = 2 
Розі'Ьіоп = 3 

ОпСЪапде = зЬРегеѵСЪапде 

и показывать в метке ІЫРегеѵ: 

Ье^Ь = 208 

Тор = 188 

Ш-СІЪЪ = 23 
НеідЪЬ =20 

АІідшпепЬ = ЬаКідЪЬ ИизЫРу 

АиЬоЗіге = Гаізе 
СарЪіоп = '3 ' 

РопЪ.НеідЪЬ = -16 
РопЬ.ЗЬуІе = [ізВоісі] 


Общее число бокалов мы будем хранить в глобальной переменной 


//всего бокалов: 
пВок: іп1:едег; 


А число одновременно переворачиваемых бокалов - в переменной 


//переворачиваем за один раз: 
пРегеѵ: іпбедег; 


При перемещении ползунка скроллера зЬРегеѵ в метке ІЫРегеѵ выводится 
новое значение числа переворачиваемых бокалов, а также оно 
запоминается в переменной пРегеѵ. Так как число переворачиваемых 
бокалов должно быть меньше общего числа бокалов, то значение пРегеѵ 
устанавливается в допустимых пределах: 


//ИЗМЕНИТЬ ЧИСЛО ПЕРЕВОРАЧИВАЕМЫХ БОКАЛОВ 

ргосесіиге ТРогшІ . зЪРегеѵСЬапде (Зепсіег: ТОЬіесЬ) ; 

Ьедіп 

ІЫРегеѵ. Сарбіоп : = іпббозбг (зЬРегеѵ. Розібіоп) ; 
пРегеѵ:= зЬРегеѵ.Розібіоп; 

мМІе пРегеѵ >= пВок сіо зЬРегеѵ. Розібіоп : = зЬРегеѵ. Розібіоп-1; 
ИеиРіау; 

епсі; / / зЬРегеѵСЬапде 


Процедура обработки изменения позиции ползунка второго скроллера 
ещё проще: 


//ИЗМЕНИТЬ ЧИСЛО БОКАЛОВ 

ргосесіиге ТРогшІ. зЬВокСЬапде (Зепсіег: ТОЬіесб) ; 

Ьедіп 

ІЫВок. Сарбіоп : = іпббозбг (зЬВок. Розібіоп) ; 
пВок:= зЬВок.Розібіоп; 

//скорректировать число переворачиваемых бокалов: 
зЬРегеѵСЬапде(Зеіб); 
епсі; / / зЬВокСЬапде 


После любого изменения условия задачи следует начинать новую игру, так 
как все предыдущие ходы в этом случае теряют всякий смысл. В процедуре 
подготовки к новой игре снимаются значения со скроллеров и обнуляется 
число ходов: 


//НОВАЯ ИГРА 

ргосесіиге ТРогшІ .ЫеѵРІау; 

Ьедіп 

//число бокалов: 

ІЫВок. Сарбіоп : = іпббозбг (зЬВок .Розібіоп) ; 
пВок:= зЬВок.Розібіоп; 

СЬапдеВок; 













//переворачиваем за 1 раз: 

ІЫРегеѵ . СарРіоп := іпРРозРг ( зЬРегеѵ. РозіРіоп) ; 
пРегеѵ:= зЬРегеѵ.РозіРіоп; 

//обнулить ходы: 

Носі: = 0; 

ІЫНосі. СарРіоп : = ' 0 ' ; 
епсі; //ЫеиРІау 


Бокалы могут находиться в одном из следующих положений: 

Цр - «горлышком» вверх, 

Ромп - «горлышком» вниз, 

БрКесІ - «горлышком» вверх, выделенное состояние, 
ОоыпКесІ - «горлышком» вниз, выделенное состояние, 
ІУІопе - бокал с заданным номером отсутствует. 

Для описания положения бокалов введём новый тип 


і:уре з , ЬВок= (ІІр, Воѵгп, ІІрКесі Л ОоѵтКесІ, Ыопе) ; 


и объявим глобальный массив 


//массив бокалов: 

тазВок: аггау[1..19] оР збВок; 


В начале игры первые пВок бокалов находятся в правильном положении 
ІІр, а все остальные бокалы от пВок+1 до 19 вообще в игре участия не 
принимают (А Іопе): 


//ПЕРЕВЕСТИ БОКАЛЫ В ИСХОДНОЕ ПОЛОЖЕНИЕ 

ргосесіиге ТРогхпІ. СЪапдеВок ; 

ѵаг 

і: іпбедег; 

Ьедіп 

Рог і:= 1 Ро 19 сіо Ьедіп 
ІР і <= пВок Ыіеп 
тазВок[і]:= Ир 
еізе 

тазВок [і] := ЕГопе; 

епсі; 

ОгамВок; 

епсі; //СЬапдеВок 


Сначала все изменения на «столе» заносятся в массив тазВок, а затем 
отображаются на экране в процедуре ОгаѵѵВок. В ней последовательно 
перебираются все (в том числе и невидимые) компоненты ТІтаде с 
бокалами и, соответственно значению в массиве тазВок, в каждый 
компонент выводится нужная картинка: 











//ПОКАЗАТЬ БОКАЛЫ 

ргосесіиге ТРогтІ . БгаѵВок; 

ѵаг 

і: іпЬедег; 
сотр : ТСотропепЬ; 

Ьедіп 

Тог і:= 1 Ьо 19 сіо Ьедіп 

сотр : = РіпсІСотропепЬ ( ' Ітаде ' +іпЬЬозЬг (і) ) ; 

(сотр аз Тітаде).Ьор:= 36; 
сазе тазВок[і] оЬ 

Ыопе: (сотр аз Тітаде) .ѵізіЫе := Раізе; 

Бр: Ьедіп 

(сотр аз Тітаде) .ѵізіЫе := Тгие; 

(сотр аз Тітаде).РісЬиге.Аззідп(ІтдБр.РісЬиге); 
епЬ; 

Боѵт: Ьедіп 

(сотр аз Тітаде) .ѵізіЫе := Тгие; 

(сотр аз Тітаде) .РісЬиге.Аззідп(ІтдБоѵт .РісЬиге); 
епсі; 

БрКеЬ: Ьедіп 

(сотр аз Тітаде) .ѵізіЫе := Тгие; 

(сотр аз Тітаде) . РісЬиге .Аззідп (ІтдБрКесІ. РісЬиге) ; 
епЬ; 

БоѵтКесі: Ьедіп 

(сотр аз Тітаде) .ѵізіЫе := Тгие; 

(сотр аз Тітаде) . РісЬиге .Аззідп (ІтдБоѵтКесі. РісЬиге) ; 
епсі; 

епЬ; 

епЬ; 

епсі; //БгамВок 


Число выполненных ходов хранится в глобальной переменной 


//ходы: 

Но<1: іпЬедег=0; 


А для вывода числа ходов нам потребуются метки ЬаЪеІІ : 

Ье^Ь = 384 
Тор = 136 

Ш.<Юі =40 
НеідЬЬ = 20 
Сарѣіоп = ' Ход :' 

РопЬ.НеідЪЬ = -16 
РопЬ.ЗЬуІе = [ЬзВоІсі] 

и ІЫНосІ: 

Ье^Ь =392 
Тор = 172 

ЮісіЬЬ =15 






НеідЬ-Ь =29 
АИдпліепЬ = ЬаСепЬег 
Сарѣіоп = '0 ' 

РопЬ.СоІог = сІКесі 
РопЪ. НеідЬ'Ь = -2 4 
РопЬ.З'ЬуІе = [ізВоІсі] 

При запуске программы устанавливается в Тгие свойство формы АиіоЗіге, 
чтобы её размеры при любом числе бокалов были оптимальными, а затем 
выводится начальная позиция, определяемая положением движков 
скроллеров: 


//СОЗДАТЬ ФОРМУ 

ргосесіиге ТРогшІ . РогтСгеаЬе (Зепсіег : ТОЬіесЬ) ; 

Ьедіп 

іогті.АиЬоЗі ге := Тгие; 

ЫемРІау; 

епсі; //ГогтСгеаЬе 


Поскольку вы можете переворачивать одновременно любые бокалы (но не 
любое их количество!), то их нужно уметь выделять. Для этого удобно 
просто щёлкать на нужных бокалах - их цвет будет меняться с синего 
(положение ІІр и Лои/п) на красный {ІдрКед и ОоѵѵпКесІ), и наоборот: 


//ВЫДЕЛИТЬ БОКАЛ 

ргосесіиге ТРогшІ . ІшадеІСІіск (Зепсіег: ТОЬ^есЬ) ; 

ѵаг і: іпЬедег; 

Ьедіп 

//номер бокала: 

і:= (Зепсіег аз ТІтаде).Ьад; 

сазе тазВок[і] оі 

Ир : тазВок[і] := іСрКесі; 

Бомп : тазВок[і] := БомпКесі; 

ИрКесі: тазВок[і] := Ир; 

БомпКесі: тазВок[і] := Боѵт 
епсі; 

БгамВок; 

епсі; //ІшадеІСІіск 


Не забудьте обработчики события ОпСІіск всех компонентов ТІтаде 
связать с этой процедурой! 

Сам ход выполняется при нажатии на кнопку зЪіРегеѵ типа Т5реедВиШп\ 

Ье^Ь = 256 

Тор = 128 

Ш-сИДі = 105 

НеідЬЬ = 26 

Сигзог = сгНапсіРоіпЬ 

Сарѣіоп = 'Перевернуть' 






РІаР. = Тгие 
РопР.СоІог = сІВІие 
РопР.ЗРуІе = [РзВоІсі] 
ОпСІіск = зЬРРегеѵСІіск 


//ПЕРЕВЕРНУТВ БОКАЛЫ 

ргосесіиге ТРогшІ. зЬРРегеѵСІіск (Зепсіег: ТОЬіесЬ) ; 

ѵаг і, п: іпРедег; 

Ьедіп 

//проверить ход: 
п : = 0 ; 

Рог і:= 1 Ро 19 сіо 

ІР (тазВок[і]= ЬрКесі) ог (тазВок[і]= БоипКесі) 

РЬеп іпс(п); 

ІР п <> пРегеѵ РЬеп Ьедіп 

аррІісаРіоп .МеззадеВох (' Столько бокалов вам не перевернуть!', 
ЫАМЕ_РКОС, ЮОК) ; 
ехір 
епсі; 

//выполнить ход: 

Рог і:= 1 Ро 19 сіо 
сазе шазВок[і] оР 

ЬрКесі: тазВок[і] := Боип; 

БоипКесі: тазВок[і] := Юр 
епсі; 

БгаиВок; 
іпс (Нос!) ; 

ІЫНосі. СарРіоп : = іпРРозРг (Нос!) ; 

//все бокалы перевёрнуты? 
п : = 0 ; 

Рог і:= 1 Ро 19 сіо 
ІР шазВок[і]= Боѵт 
РЬеп іпс(п); 

ІР п = пВок РЬеп Ьедіп 

аррІісаРіоп.МеззадеВох('Отличная работа!', ЫАМЕ_РКОС, ЮОК) ; 
ЫеиРІау; 
епсі; 

епсі; //зЬРРегеѵСІіск 


Сначала нужно проконтролировать правильность выполнения хода - 
число выделенных бокалов должно в точности равняться пРегеѵ. Если всё 
верно, выделенные бокалы переворачиваются, и метод проверяет, не 
решена ли задача. 

В любой момент вы можете начать новую игру, нажав кнопку БЪШеѵѵРІау : 

ЬеРР = 256 
Тор = 184 

ЮісіРЬ = 105 
НеідЬР =22 




Сигзог = сгНапсіРоіп'Ь 
Сарѣіоп = 1 Новая игра' 
Ріаѣ = Тгие 
Роп-Ь.СоІог = сІКесі 
Роп-Ь. Зѣуіе = [ГзВоІсі] 
ОпСІіск = зЪкЫемРІауСІіск 


//НАЧАТЬ НОВУЮ ИГРУ 

ргосесіиге ТРоппІ. зЬШеѵРІауСІіск (Зепсіег: ТОЬ^есЬ) ; 

Ьедіп 

ЫеиРІау; 

епсі; //зЫ:ИеиР1ауС1іск 


Как решить задачу? 

Давайте вспомним о нашей задаче с семью бокалами, которые нужно 
переворачивать по три штуки за один раз. 

Если вы станете бессистемно вертеть бокалы, то рано или поздно вы, 
конечно, эту задачу решите (не такая уж она и сложная), да что толку - со 
следующей вы будете мучиться ничуть не меньше. Лучше сразу всё 
хорошенько обдумать, а затем играть «со смыслом»! 

Прежде всего, вы должны для себя отметить, что, сколько бы раз вы 
бокалы ни переворачивали, всё равно общее число перевёрнутых бокалов 
будет кратно трём (мы ведь переворачиваем по три бокала!). Но семь на 
три не делится, поэтому просто так их и не перевернуть. Легко за два раза 
перевернуть 6 бокалов, но тогда останется только один «неправильный» 
бокал, и вместе с ним нам придётся перевернуть и два правильных. Они 
станут неправильными и, возвращая их в нужное положение, мы опять 
прихватим один правильный бокал. В общем, играть нужно не так! 

Первый ход очевиден - мы должны перевернуть ножками вверх любые три 
бокала (Рис. 5.52). 




Рис. 5.52. Первый ход 




Столь же очевиден и последний ход - нам придётся перевернуть ножками 
вверх какие-то три бокала (Рис. 5.53). 



Рис. 5.53. Последний ход 

Все сложности - в промежуточных ходах, точнее, даже в одном ходе. 
Попробуем его вычислить. 


Ясно, что за два хода задачу не решить, так как мы сумеем перевернуть 
только 6 бокалов. За три хода мы перевернём 9 бокалов, а нужно 7. Но 7 - 
это те бокалы, которые стояли вначале ножками вниз, а ведь после первого 
хода появляются и бокалы, стоящие ножками вверх. Если один из них 
вернуть в исходное положение (ножкой вниз), то по ходу решения мы 
перевернём уже 8 бокалов. Но мы обязаны перевернуть его ещё один раз, 
иначе он так и будет стоять ножкой вниз! Таким образом, при этих 
операциях мы добавили к семи переворачиваемым бокалам ещё два. Итого 
получилось ровно 9, что и требуется! 

Теперь всё предельно ясно: делая второй ход, мы должны возвратить в 
исходное положение один из тех бокалов, что был перевёрнут на первом 
ходу (Рис. 5.54). 




Рис. 5.54. Второй ход 

В расчётах мы не ошиблись - осталось ровно три бокала ножками вниз, 
которые и нужно перевернуть на третьем ходу. 

Решим более сложную задачу. Пусть теперь имеется 17 бокалов, а 
переворачивать нужно по 5 бокалов одновременно. В лучшем случае 
задачу можно решить за 4 хода, перевернув 20 бокалов. То есть к 17 уже 
имеющимся следует добавить ещё три. А это невозможно: мы показали, 
что дополнительные бокалы берутся из уже перевёрнутых ножками вверх, 
при этом любой из них придётся переворачивать два раза. Но три на два не 
делится, поэтому никакие ухищрения не помогут. Придётся накинуть ещё 
один ход, тогда мы перевернём 25 бокалов, из которых 25 - 17 = 8 



«лишних». Их могут дать 8:2 = 4 возвращаемых в исходное положение 
бокалов. 

Итак, для решение задачи потребуется 5 ходов. На первом и последнем мы 
будем переворачивать по 5 бокалов, стоящих ножками вниз. А вот во 
время оставшихся трёх ходов нам и следует возвращать в исходное 
положение 4 бокала. Причём совершенно безразлично, как вы разделите 
эти бокалы между ходами - 4+0+0, 3+1+0, 2+2+0, ... Стало быть, задача 
имеет несколько вариантов решения длиной в 5 ходов. 

Нам осталось изложить открытый нами алгоритм на «дельфийском» 
языке и препоручить кнопке зЬіНіпі:-. 

Ье^Ь = 256 

Тор = 156 

Ш.сі'Ыі = 105 
НеідЬ-Ь =25 
Сарѣіоп = ' Подсказка' 

РІаЬ = Тгие 
Роп-Ь.ЗЬуІе = [ЬзВоІсІ] 

ОпСІіск = зЬЬНіпЬСІіск 

всю заботу о выводе подсказки: 


//ПОДСКАЗКА 

ргосесіиге ТРогтІ. зЬЬНіпЬСІіск (Зепсіег: ТОЬ^есЬ) ; 

Ьедіп 

НіпЬ; 

епЬ; 

//ВЫВЕСТИ ПОДСКАЗКУ 

ргосесіиге ТРогшІ. НіпЬ; 

ѵаг 

і, п, т: іпЬедег; 

Ьедіп 

//если число бокалов нечётное, а переворачиваем чётное 
//число бокалов, то задача неразрешима: 
іі осМ(пВок) апсі поЬ осМ (пРегеѵ) Ыіеп 
Ьедіп 

зЬоѵяпеззаде (' Задача решений не имеет!'); 
ехіЬ 
епсі; 

т:= пВок; 
п:= пРегеѵ; 
і : = 0; 

ѵЬіІе (п*і< т) ог ( (п*і - т) тосі 2 О 0) сіо іпс (і) ; 

зЬоитеззаде('На решение задачи потребуется ходов - '+ іпЬЬозЬг 
(і)+ #10#13+ 'Число возвращаемых бокалов = '+ 





іп'Ь'Ьоз'Ьг ( (п 
епсі; //Ніпі: 


і - т) сііѵ 2) ) ; 


* 


Вычисления проводятся в цикле 

ѵЛіІе (п*і< т) ог ( (п*і - т) тосі 2 о 0) сіо іпс (і) ; 

Он совершается до тех пор, пока число, кратное числу переворачиваемых 
бокалов ( п*і ), меньше общего числа бокалов или разность ( п*і - т ] не 
делится на два. О необходимости (и достаточности] выполнения этих 
условий мы только что говорили. 

Теперь вы сможете не только успешно переворачивать бокалы, но и 
делать это непринуждённо! 

Конечно, вам уже кажется, что нет таких задач, с которыми вы бы не 
справились. Тогда попробуйте такую. 

В ряд расставлены 6 бокалов, причём первые три с вином, последние три 
пустые (Рис. 5.55]. Вы можете взять в руку только один бокал. Что нужно 
сделать, чтобы бокалы с вином и пустые чередовались? 


Рис. 5.55. Невинная винная задача 

Ответ вы найдете на следующей странице. 



Можно ли решить «бокальную» задачу при условии, что допускает¬ 
ся одновременно переворачивать только идущие подряд бокалы? 
Тривиальные сочетания тип типа б и 3 не учитывайте. 


2. Условие то же, что и в предыдущем пункте, но бокалы располага¬ 
ются кольцом, то есть первый и последний бокалы стоят рядом. 


3. Вероятно, задача неразрешима при условиях 1 и 2 (попробуйте до¬ 
казать или опровергнуть это предположение!), поэтому поищите 
задачи, в которых начальное положение бокалов отличается от 
стандартного (все ножками вниз). Очевидно, что существует мно¬ 
жество таких задач (их легко получить из конечной позиции, делая 
ходы тем или иным способом). Вопрос в том, могут ли при этом 







возникнуть интересные расположения бокалов или необычные по¬ 
следовательности ходов. 


Ответ неожиданно прост (быстро ли вы до него додумались?) - нужно перелить вино из второго бокала 
в пятый и вернуть его на место. Оп-ля! 



Исходный код программы находится в папке Вокаіу. 


Факультатив 3. Японский кроссворд, или 
Восхождение на Фудзияму мысли 


Банзай! 

Клич японских фанатов оригами 

Японцы, конечно, молодцы - придумали такое количество отличных 
головоломок, что о них можно написать целое собрание сочинений! 
Впрочем, наши помыслы не устремляются так далеко, поэтому мы 
ограничимся только одной из них, но весьма интересной и полезной для 
ума. Самое удивительное в ней то, что эта забава, которую мы называем 
Японским кроссвордом (а то и сканвордом!] или Японской головоломкой не 
имеет никакого отношения к словесным задачам - в ней вообще нет 
никаких слов. 



Сами японцы называют её ЕдеІ. Поскольку головоломка очень 
известна во все мире, то у нее, как и у закоренелого рецидивиста, 
имеются «клички» - Нонограмма и Нопу/'е. 


Это и понятно: японцы пишут иероглифами, то есть целыми словами, из 
которых кроссворд составить довольно затруднительно, что, собственно, 
и послужило толчком для создания этой головоломки. Сначала в заданиях 
требовалось найти загаданный иероглиф, но потом стали использовать и 
обычные чёрно-белые картинки. В России, конечно, распространён именно 
последний вариант головоломки... 


Просветление, или Что придумали японцы 

-Вы неправильно коня поставили, 
товарищ гроссмейстер,- залебезил одноглазый. 

- Конь так не ходит. 

Ильф и Петров, 
Двенадцать стульев 


Прежде чем перейти к самому интересному (а этим для нас, безусловно, 
является решение головоломок с помощью компьютера), нужно разо¬ 
браться в сущности японского кроссворда. 

Все подобные задачи имеют вот такой вид (Рис. 3.1) 
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Рис. 3.1. Японский кроссворд 


Большой белый прямоугольник, разделённый на квадратные клетки, - это 
игровое поле. Сначала оно пустое, то есть все клетки белые. Рисунка на нём, 
как на ещё не проявленной фотографии, не видно. А чтобы он 
«проявился», часть клеточек нужно закраситъ. Любой непрерывный 
горизонтальный или вертикальный ряд чёрных клеток называется 
группой. Друг от друга группы отделяются по крайней мере одной белой 
клеткой (белые клетки могут находиться и по краям строки или столбца 
на игровом поле, то есть до первой и за последней группой]. 

Сверху и слева от игрового поля размещаются поля с числами (на нашем 
рисунке они выделены серым цветом]. Мы будем называть их числовыми 
полями. Числа показывают длину каждой группы соответствующего ряда, 
поэтому в каждом ряду на игровом поле столько групп, сколько чисел в 
числовом поле. Например, на Рис. 3.2 ряд содержит 3 группы чёрных 
клеток - в левом числовом поле находится 3 числа. В первой группе 2 
клетки, во второй - 6, в третьей - 1, то есть первое число слева (или сверху 
- для верхнего числового поля] задаёт длину первой группы, второе - 
второй и так далее. Положение групп в ряду может и отличаться от того, 
что на рисунке, - всё зависит от условия задачи. 
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Рис. 3.2. Ряд чисел и клеток 
































































Надо заметить, что, не нарушая последовательности чисел, их 
можно записывать либо от левого (верхнего), либо от правого 
(нижнего) края числового поля. Чаще встречается второй вариант, 
что нередко приводит к ошибкам при решении задачи, так как 
начальные группы рядов располагаются на разных уровнях. Именно 
поэтому мы всегда будем придерживаться второго варианта. 

Для наглядности дальнейших рассуждений все ряды игрового поля обо¬ 
значены числами и буквами, как в шахматах (правда, у шахматистов при¬ 
нято нумеровать горизонтали снизу вверх, а нам удобнее делать это свер¬ 
ху вниз, что более естественно). В реальных задачах этот «элемент оформ¬ 
ления» отсутствует. 

Таким образом, для каждого ряда игрового поля нам известно: число 
групп в нём и длина каждой из групп. Дело за малым (этот малый, конеч¬ 
но, вы) - правильно «расставить» белые клетки. Не надейтесь, что вам 
удастся сделать это играючи, а лучше внимательно прочитайте правила 
решения японских кроссвордов и разберитесь в примере решения одного 
из них, не самого сложного, но и не самого простого. Даже если ваша рука и 
не тянется к перу, а перо - к бумаге, всё равно наши экзерсисы пригодятся 
вам при работе над грядущей программой. 



Правила хорошего моветона 


Лошадью ходи! 
Один из дурацких Фединых советов 

Начинать решение следует с тех рядов, которые сами в руки просятся. Ду¬ 
мать придётся много, но это впереди. 


Золотые правила решения японских кроссвордов 

Правило 1: Пустой ряд. Перво-наперво поищите ряды (горизонтальные и 
вертикальные), в которых стоит только число 0. Такая ситуация встреча¬ 
ется нечасто, но нужно быть готовым ко всему. Так вот, это число неопро¬ 
вержимо свидетельствует о том, что весь ряд состоит только из белых 
клеток (в печатных изданиях все клетки изначально белые, поэтому «обе¬ 
лить» их не удастся, придётся прибегать ко всяческим уловкам, чтобы их 
отметить, - например, точками или крестиками). Найдя 0, вы смело можете 
поставить на этом ряде крест (Рис. 3.3). 




х|х|х|х|х|х|х|х|х|х|х|х|х|х|х!х1 


Рис. 3.3. Пустой ряд из белых клеток 

Так как весь ряд разгадан, то слева от него мы ставим галочку , дабы он бо¬ 
лее не обременял нас размышлениями. 

Правило 2: Полный ряд. Значительно чаще в задачах попадаются ряды, 
которые также описываются единственным числом, в точности совпада¬ 
ющим с длиной ряда на игровом поле. Тут, как говорится, без вариантов - 
весь ряд нужно «очернить». Действуем аналогично первому случаю, но в 
негативном исполнении (Рис. 3.4). 

/ из і і і і і і і і і і і і і і і і т 


Рис. 3.4. Полный ряд черных клеток 

Первые два правила просты и очевидны, как очевидно и то, что с их помо¬ 
щью можно решить только Чёрный квадрат Малевича или его бледного 
родственника. В японских кроссвордах такие шедевры не встречаются, по¬ 
этому перейдём к более сложным комбинациям клеток. 

Правило 3: Полная сумма. Это третья - и последняя - возможность разом 
покончить с целым рядом. Так как между группами чёрных клеток должна 
находиться хотя бы одна белая, то все они займут как минимум столько 
клеток, сколько в сумме составляют все группы, плюс по одной клетке 
между ними (то есть число групп в ряду за вычетом единицы). Если мы 
найдём ряд с такой суммой чисел, то его участь предрешена - он будет 
беспощадно раскрашен (Рис. 3.5). 
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Рис. 3.5. Полная сумма 

При этом нам потребуется уже известная сноровка, но это приятные хло¬ 
поты. Как и раньше, отмечаем ряд галочкой. Третьим правилом придётся 
пользоваться довольно часто, но и его маловато будет для решения даже 
самой простой задачи. 


Ясно, что Правило 2 является частным случаем более общего Пра¬ 
вила 3. При ручном разгадывании кроссворда этот факт ничего не 
даёт, но при программировании он нам ещё послужит. 






































































Правило 4: Длинная группа. Больше нам не удастся решить целиком весь 
ряд, придётся брать частями (подобный вид дележа чужих денег был не по 
вкусу Остапу Бендеру, он предпочитал всё сразу, но мы вынуждены идти 
на компромисс). Если в числовом поле стоит единственная группа, длина 
которой больше половины длины ряда на игровом поле, то, как бы ни рас¬ 
полагалась эта группа, часть клеток в середине ряда всегда будет занята 
чёрными клетками. Эти клетки вычисляются очень просто - достаточно 
отсчитать от края игрового поля столько клеток, сколько должен занять 
этот ряд, и посмотреть, сколько клеток останется ещё не закрытыми с 
противоположного края. Так как разгаданные чёрные клетки должны рас¬ 
полагаться симметрично относительно границ ряда, то столько же нераз¬ 
гаданных клеток должно быть и в начале ряда. Число этих клеток можно 
узнать, если из длины ряда вычесть длину группы. Мы пока не знаем, ка¬ 
кого цвета будут граничные клетки, а вот остальные обязательно будут 
чёрными (Рис. 3.6). 
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Рис. 3.6. Длинная группа 

Чтобы лучше понять, почему так происходит, нарисуем группу в крайних 
положениях (вы можете сделать то же самое и для всех промежуточных 
положений группы, но это ничего не изменит) (Рис. 3.7). 
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Рис. 3.7. Нахлест 

Отчётливо видно, что первые и последние 5 клеток ряда (16 -11 = 5) мо¬ 
гут быть как чёрными, так и белыми, поэтому мы не можем пока одно¬ 
значно определить их цвет. А вот 6 клеток в центре группы (11-5 = 6) 
обязательно будут чёрными, как ни крути! 

Это правило следует хорошенько запомнить, так как пользоваться им 
придётся очень часто. 

Его действие можно распространить и на тот случай, когда в ряду не одна, 
а две группы. Вычтите из длины ряда длину одной из групп и ещё одну 
клетку для «зазора» между группами. Если длина второй группы больше 
половины полученной разности, то часть клеток второй группы обяза¬ 
тельно будет чёрной. Например, если длина ряда 9 клеток и в нём две 
группы из 4 и 3 клеток, то даже в крайнем правом положении вторая груп¬ 
па «выбьет» из ряда 4 клетки. На долю первой группы останется 5 клеток, 















































и мы легко можем подсчитать, что 3 клетки ряда, начиная со второй, обя¬ 
заны быть чёрными (Рис. 3.8). 



Рис. 3.8. Двойной нахлест 

Кстати говоря, правила составления классических японских кроссвордов 
запрещают и пустые, и полные строки, и полные суммы, но у нас на это де¬ 
ло - по привычке - смотрят шире, чем в «узкоглазой» Японии, то есть у нас 
можно всё. И ещё о запретном: размеры игрового поля в классическом 
кроссворде должны быть кратны пяти. Но судьба этого запрета в России 
столь же печальна, как и предыдущих... 


Железные правила решения японских кроссвордов 

Первые два правила можно применить только однократно, в самом начале 
игры, третье и четвёртое могут пригодиться и дальше, если учитывать 
уже разгаданные клетки ряда. Все следующие правила нужно проверять 
после каждого изменения ситуации на игровом поле. 

Правило 5: Нахлёст. Если в ряду осталась только одна неразгаданная 
группа, длина которой больше половины оставшихся неразгаданными 
клеток, то часть клеток в середине группы обязательно будет чёрными. Их 
количество и положение легко установить, пользуясь Правилом 1 (Рис. 
3.9). 
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Рис. 3.9. Нахлест 

Правило 6: Габариты. Важно отмечать не только заведомо чёрные, но и 
заведомо белые клетки. Проверяйте, какие клетки наверняка не могут 
быть чёрными, и, значит, они белые. Такое положение часто возникает, ес¬ 
ли в ряду уже отгаданы чёрные клетки и мы можем точно установить пре¬ 
дельные клетки чёрной группы. На верхнем рисунке (Рис. 3.10) показана 
позиция на игровом поле, когда в ряду уже разгадана одна чёрная клетка. 
Если предположить, что она является начальной для чёрной группы, то, 
отсчитав влево 11 клеток, мы убедимся, что последние две клетки не мо¬ 
гут входить в эту группу, поэтому они непременно белые (Рис. 3.10). 
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Рис. 3.10. Габариты 

Правило 7: Слитная группа. Если в ряду осталась неразгаданной только 
одна группа и имеются чёрные клетки, разделённые неразгаданными, то 
все они принадлежат одной группе и все неразгаданные клетки между 
чёрными тоже чёрные (Рис. 3.11). 
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Рис. 3.11. Слитная группа 

Правило 8: Автогруппа. Проверяйте, не образовались ли после закраши¬ 
вания клеток в одних рядах полные группы в других. Если необходимо, 
обрамляйте их с двух сторон белыми клетками (Рис. 3.12). 
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Рис. 3.12. Автогруппа 


Правило 9: Граничные клетки. Если на поле есть чёрная клетка, гранича¬ 
щая с белой, то она является либо начальной, либо конечной клеткой од¬ 
ной из групп ряда (Рис. 3.13). 
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Рис. 3.13. Граничные клетки 

Правило 10: Вилка. Если между двумя белыми клетками (или между бе¬ 
лой клеткой и краем поля) не может разместиться ни одна группа, то все 
клетки между ними белые (Рис. 3.14). 
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Рис. 3.14. Вилка 




























































































































































































































Теперь вы вполне сможете «правильно» решать задачи. Но имейте в виду, 
что невозможно описать все положения, могущие возникнуть на игровом 
поле, поэтому подходите к применению правил творчески. К примеру, 
многими из них можно воспользоваться и в более сложных случаях, чем 
это описано. 


Решительный момент, или Берём быка за бока 

Тореадор, смелее в бой! 

Оперный призыв 

Давайте решим для примера задачу, которую вы уже видели в начале 
главы. 

1. Следуя нашим правилам, мы легко обнаруживаем ряд 1, в котором для нас 
заботливо поставлен нолик, и решаем его без всяких усилий (Правило 1). 

2. К сожалению, на этом блага цивилизации заканчиваются, так как никто не по¬ 
заботился воплотить Правило 2 в жизнь. Зато - мир не без добрых людей! - 
Правило 3 представлено во всей красе: сразу два ряда - 5 и 6 - подчиняются 
ему, так что мы с лёгким сердцем можем разом покончить с обоими. 

3. В столбцах N и Е притаились длинные ряды. Так как верхняя клетка уже из¬ 
вестна (она белая), то группу из 11 клеток нужно разместить на 14 клетках. По 
Правилу 5, определяем, что 8 клеток, 5-12, чёрные. 

4. й - опять длинный ряд. Верхняя клетка разгадана, и группа из 10 клеток 
должна разместиться на тех же 14 клетках. Если отсчитать 10 клеток сверху 
(от белой) и снизу (от края поля), то окажется, что 7 клеток, 5-11, в середине 
ряда чёрные. По Правилу 6, отсчитываем вниз от 05 10 клеток и выясняем, 
что последняя клетка ряда - Р15 - может быть только белой. 


После всех манипуляций игровое поле должно выглядеть так (Рис. 
3.15). 
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Рис. 3.15. Четыре шага позади 












































5. Строки 9, 10. Воспользуемся Правилом 7 и закрасим клетки І_, М. Так как те¬ 
перь группы на поле состоят из 11 клеток, что равно заданной длине групп, то 
эти группы решены. Других групп в этих рядах нет, поэтому весь ряд решён. 
Оставшиеся клетки помечаем как белые. 

6. Столбцы Р, М. Клетка 5 может быть только конечной для первой группы из 3 
клеток, поэтому можно закрасить клетки 3 и 4. Группа разгадана, отмечаем её 
кружком. Клетка 2 белая. 

7. В столбце О образовалась группа из 1 клетки, единственная в этом ряду, 
следовательно, весь ряд решён, отмечаем его галочкой. Оставшиеся клетки 
ряда - белые. 

8. Строка 4. Согласно Правилу 7, клетки Р, М принадлежат группе из 11 клеток, 
иначе эту группу невозможно разместить на поле. Все клетки между ними, Ѳ- 
І_, чёрные. По Правилу 10, определяем, что клетка Р - белая. 

9. Столбец Р. По Правилу 9, клетка 5 - начальная для группы, поэтому клетки 7 
и 8 чёрные, а группа решена. Так как группа единственная в ряду, то решён и 
весь ряд. Отмечаем его галочкой, а оставшиеся клетки ряда помечаем как бе¬ 
лые. 

После этого хода на поле возникла такая забавная конфигурация кле¬ 
ток (Рис. 3.16). 
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Рис. 3.16. И еще пяток 

10. В строке 7 образовались две последние группы, отмечаем их кружком, а в 
клетку М ставим крестик - она белая. 

11 .В строке 8 вырисовалась последняя группа, а также известна конечная клетка 
предпоследней группы, следовательно, клетка М чёрная, а І_ - белая. Отме¬ 
чаем обе группы кружком. 

12. В столбцах С, Н, К, І_ образовались первые группы из 3 клеток, отмечаем их 
кружком и обрамляем белыми клетками 3 и 4. 

13. В строке 11 образовалась последняя группа из 1 клетки. Отмечаем её круж¬ 
ком, а в клетку М ставим крестик. 














































14. В столбцах I, и все чёрные клетки входят в группу из 8 клеток, поэтому нераз¬ 
гаданные клетки 7 и 8 между ними можно закрасить. 

15. В строке 7 получились последние две группы - ряд решён. Оставшиеся нераз¬ 
гаданными клетки помечаем как белые. 

16. Столбец С решился сам собой - ура, то есть банзай!!! 

17. В строке 8 возникла ещё одна группа из 2 клеток, а клетка й - начальная для 
группы из 3 клеток, поэтому с чистой совестью мы закрашиваем клетку Р. Со 
всеми группами этого ряда мы успешно справились, помечаем его галочкой, а 
оставшиеся клетки крестиком. 


Позиция, возникшая на «доске» после 17-ого хода (следите за мыслью!) 
(Рис. 3.17). 
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Рис. 3.17. И еще чуток 

18. В столбцах Р, М образовались вторые группы из 3 клеток, отмечаем их круж¬ 
ком. В клетку Р11 ставим крестик. 

19. Столбцы С, Н, К, І_ - клетка 9 начинает вторую группу из 3 клеток, закраши¬ 
ваем клетку 11 и ставим крестик в поле 12. Отмечаем, что группа решена. 
Клетка 2 может быть только белой, так как первая группа уже разгадана. 

20. В строке 11 образовалась группа из 2 клеток, отмечаем её кружком. Чёрные 
клетки Р, С и К, І_ могут принадлежать только группе из 6 клеток, помечаем 
клетки I, и как чёрные. Группа разгадана. Разгадан полностью и весь ряд, ста¬ 
вим слева галочку. Оставшиеся клетки А, В, разумеется, белые. 

21. В столбцах I, и образовались группы из 8 клеток, обрамляем их крестиками. 
Клетка 2 тоже белая. Фиксируем свои успехи. 

22. В строке 4 между белыми клетками С и О ровно 11 клеток, поэтому группа из 
11 клеток решена, клетки й, Е, N закрашиваем. 

23. В строке 3 клетка М - начальная для группы из 2 клеток, поэтому клетка N - 
чёрная. Клетка Р - конечная для группы из 3 клеток, значит, клетки й, Е также 
чёрные. Отмечаем обе группы как решённые. 

24. Столбец А. Клетка 6 - конечная для группы из 3 клеток, поэтому клетка 4 чёр¬ 
ная. Группа решена, а других в этом ряду и нет. Отмечаем его галочкой. 













































25. В столбце В получилась одна из групп из 2 клеток, следовательно, клетка 4 - 
белая. 

Ситуация на поле складывается явно в нашу пользу (Рис. 3.18). 


/ 


Л 









3 

2 

± 

10 

л 

© 

© 


щ 

и 


© 

© 

11 

і 

4 






2 




© 

т 


2 

2 


© 

© 













в 

2 

2 



2 

2 

в 





0 




X 

X 

X 

х 

х 

□ 

X 

X 

X 

X 

X 

X 

□ 

X 

X 

X 

1 

1 

1 

1 


X 


X 



□ 

X 

X 

X 

X 

X 

X 

г 


X 

X 

2 

1 

й 

Й 


X 


X 




X 

X 

л 

X 

X 

X 



X 

X 

3 


11 




X 

X 












X 

X 

4 

2 

11 

т 




X 












X 


5 

5 

6 

3 







X 







X 




6 

2 

2 


(Т 

X 

X 

X 



X 

X 

X 



X 

X 

л 


X 


1 

3 

2 

(5) 


X 

X 

X 




л 

л 



X 

X 



X 


8 

11 




X 

X 

X 












X 

с 

9 

11 




X 

X 

X 












X 

ЕЭ 

10 

©ж«ш 

X 

X 

X 



X 







X 


X 

г 

11 

2 

2 



X 


X 




X 

X 

X 

X 

X 

X 



X 

с 

12 

3 

2 



X 


X 












X 

с 

13 

1 




X 


X 












X 

□ 

14 

4 




X 


X 

X 











X 

и 

15 




Рис. 3.18. Победа близка! 

26. В строке 4 образовалась первая группа, теперь все группы решены, а с ними 
и весь ряд. 

27. В строках 12, 13, 14,15 между белыми клетками А и С не сможет разместить¬ 
ся ни одна группа, стало быть, клетка В - белая. 

28. В столбце В остались только две не разгаданных клетки - как раз для первой 
группы. И с этим рядом покончено. 

29. В строке 2 образовалась первая группа (в клетке В). Последняя группа может 
занять только клетку N. так как на остальных клетках (й, Е) не могут разме¬ 
ститься 2 группы. 

30. В столбце N сама собой возникла единственная группа из 11 клеток, что поз¬ 
воляет нам считать клетки 13,14,15 белыми. И с этим рядом мы управились. 

31. В строке 12 клетка N - конечная для второй группы из 2 клеток, поэтому 
предыдущая клетка также чёрная. 

32. В столбце М клетка 12 - начальная для группы из 2 клеток, следовательно, 
клетка 13 также чёрная. Все группы этого ряда решены, осталось поставить 
крестики в клетки 14 и 15. 

33. В строке 3 образовалась группа из 1 клетки, с чем мы можем себя поздравить 
- теперь весь ряд решён. 

34. В строке 13 клетка М - конечная для группы из 2 клеток, значит, клетка І_ чёр¬ 
ная, а предыдущая - белая. 

35. В строке 14 остались неразгаданными 9 клеток (й - І_), в которых должна 
разместиться группа из 7 клеток, и мы должны признать, что клетки Р-и неиз¬ 
бежно чёрные. 

36. В столбце К хватает места только для последней группы, и мы должны отме¬ 
тить свой очередной успех. 

37. В строке 14 клетка Р белая, по Правилу габаритов. 































































38. В столбце I. клетка 13 - начальная для группы из 2 клеток. Следующую за 
ней клетку мы закрашиваем, в последнюю ставим крестик - и ряд приказал 
долго жить. 

Положение пресловутой японской головоломки критическое (Рис. 3.19). 
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Рис. 3.19. И мы близки к победе! 

39. В строке 15 клетка К - конечная для группы из 4 клеток. И этому ряду конец. 

40. В столбцах Р, С клетка 14 - конечная для последней группы. Оба ряда - «ту- 
ды их в качель». 

41 .В строке 14 образовалась единственная группа, так что и ряду тоже кариі. (Не 
забудьте на радостях поставить ему крестик в клетку Е.) 

42. В строке 12 возникла группа из 2 клеток. Клетка й - белая, а ряд благополуч¬ 
но того. 

43. Со столбцом й разобраться проще пареной репы: клетка 13 белая, а клетка 
2, напротив, чёрная. 

44. В строке 2 образовалась последняя группа, нам осталось наградить клетку Е 
крестом (посмертно). 

45. В столбце Е ставим жирную чёрную точку в несчастливую клетку 13, и пусть 
этот ряд покоится с миром. 

46. В строке 13 получилась группа из 3 клеток. Ставим последние кресты в этой 
задаче. Аминь. 

Все клетки разгаданы. Теперь, коли ещё остались силы, вы можете по¬ 
любоваться зрелыми плодами своей интеллектуальной деятельности 

(Рис. 3.20). 



























































Рис. 3.20. Разделали в пух и прах! 



Аналогично «раскрашиваются» и более сложные рисунки - 
правила решения одинаково верны для всех задач. Однако, 
если рисунок имеет размеры побольше нашего (а чаще всего 
так оно и есть), да плюс ко всему множество мелких групп, то 
и потрудиться придётся преизрядно. Не удивительно, что где- 
то можно ошибиться и вместо чёрной клетки поставить белую 
(или наоборот), из-за чего всё решение пойдёт дальше шиво¬ 
рот-навыворот и вы напрасно потратите остаток своей жизни 
на тщетные поиски коварных заблуждений. Более того, неко¬ 
торые задачи садистского толка вообще устроены так, что их 
невозможно решить «чисто логически», не делая предполо¬ 
жений насчёт цвета отдельных клеток. Скорее всего, одно из 
них окажется неверным, и это сильно огорчит вас, потому что 
придется несолоно хлебавши возвращаться назад, а, значит, 
что вам не избежать «протокола», в котором вы должны бу¬ 
дете фиксировать позицию на поле перед тем, как наугад по¬ 
метить клетку. Тут уж вы повеселитесь на полную катушку! 


























































Кибернетическое убийство времени, или Компью¬ 
тер-поводырь 


Заграница нам поможет! 
Один из посулов Остапа Бендера 

Если вы любитель «рукоприкладства» в решении головоломок, но тяготи¬ 
тесь бумажной рутиной, то с помощью нашей будущей программы сможе¬ 
те решать японские головоломки на экране монитора. Хотя надо иметь ан¬ 
гельское терпение, чтобы часами решать на компьютере задачи вручную, 
когда тот же компьютер справится с ними в «уно моменто». Я надеюсь на 
ваше благоразумие, поэтому ручному решению японских кроссвордов в 
нашей программе мы уделим меньше внимания, чем автоматическому. Ес¬ 
ли же вас привлекает именно ручная, тонкая работа, то я могу порекомен¬ 
довать вам несколько программ, которые помогут вам убедиться в брен¬ 
ности всего сущего. 

1. Вас, несомненно, порадует «японским» дизайном игра Сгозз Ітаде ком¬ 
пании Хсіупе (Рис. 3.21). 



Рис. 3.21. Японисто! 












































































































Впрочем, радоваться вам придётся недолго: справившись с тремя прилага¬ 
емыми задачами, вы задумаетесь, где бы достать новые. К сожалению, вве¬ 
сти свои задачи вам не удастся, так что эта программа почти бесполезная. 

2. Значительно «правильнее» программа Романа Гантверга Японский крос¬ 
сворд. Игра и редактор с библиотекой из нескольких десятков заданий 
(Рис. 3.22, слева), к тому же вы сможете вводить и свои собственные. Для 
автоматического решения задач вполне уместно использовать программу 
5оІШег Гантверга и Самсонова (Рис. 3.22, справа). 


^ Японский кроссворд - Случайно 


Игра Редактор Настройки Помощь 



Ь Японский кроссворд - Решатель 


Файл Редактор Решатель Справка 
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Рис. 3.22. Программы Гантверга и Самсонова 

3. Не менее интересна программа Японский кроссворд 2000 Егоркина Игоря 
Владимировича, которая включает 315 задач. Вы можете и самостоятель¬ 
но вводить новые задания, а программа в трудную минуту придёт вам на 
помощь и дорешает задачу, если силы оставят вас (Рис. 3.23). 



Рис. 3.23. Японский кроссворд 2000 в действии 































































































































































































































































4. А в программе Антона Головина Японская головоломка вы, как Фигаро 
или Труффальдино из Бергамо, сможете одновременно биться на несколь¬ 
ких фронтах, решая несколько задач в отдельном окне (Рис. 3.24). 


С) Японская Головоломка 


Файл Правка Решение Окна Справка 

у и» в ы| .чі ^ъішівваі ?І §}т Черный ~ЗА 




о 


Ы_I 2І 


Рис. 3.24. Японская головоломка 

5. Беднее по графическому исполнению, но близка по возможностям к 
первой программе игра ]рсѴѴіп Антона Ильяшенко (Рис. 3.25). 



Рис. 3.25. Программа фсИ//л 













































































































































































6. Очень мощная программа Сгозз+А Сергея Кутасова и Ильи Морозова 
умеет решать не только черно-белые (Рис. 3.26, слева), но и цветные за¬ 
дачки (Рис. 3.26, справа). 


ІІ Решить головоломку; нонограмма (японский кроссворд) 


Задание Ответы (1,85 сек.) | 
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Открыть задание 


Сохранить задание 


Очистить 


Т ип кроссворда: 

о Чёрно-белый 
© Цветной 


(. Д) Решить головоломку; нонограмма (японский кроссворд) 

Ответы (0,03 сек.) | 





Р Г 


Открыть задание 


Сохранить задание 


Очистить 


Т ип кроссворда: 

Чёрно-белый 
(О) Цветной 


Рис. 3.26. Сгозз+А решает Водолейную задачу 

К тому же она позволяет создавать и редактировать собственные задачи, а 
также поддерживает файлы разных форматов. 

7. И последняя программа - Сипп’з]арапезе Риггіе - также предлагает ре¬ 
шать только свои собственные задачи. А их прилагается не очень много... 


Решительный штурм, или Как расколоть японские 

кроссворды 

Взялся за гуж, не говори, что не дюж. 

Из русского фольклора 

Каждый любитель головоломок погорячее, как и былинный витязь на 
распутье, должен выбрать одну из дорог: решать задачу «вручную» или с 
помощью компьютера. Оба пути не из лёгких (бытует заблуждение, что на 
компьютере задачу и дурак решит), а потому по-своему интересны (а за¬ 
чем вообще браться за простые задачи, например, сканворды?). Но тот, кто 
предпочтёт «сотрудничество» с компьютером, получит двойное удоволь¬ 
ствие - и задачу решит (и не только одну, но и все подобные), и программу 
напишет, что само по себе во много раз интереснее любой головоломки. 
Когда ваша программа начнёт щёлкать сложнющие задания как орешки, 
вас охватит ни с чем несравнимая радость творца, из «ничего» создавшего 
целый мир, в котором всё движется и шевелится, покоряясь его воле. 











































































































































Мы напишем программу, которой будет по зубам любой японский кросс¬ 
ворд. Она может послужить основой для вашего творчества - изучайте, 
изменяйте и улучшайте её - до тех пор, пока не удовлетворитесь получен¬ 
ным результатом. 

А начнём мы наш новый проект по привычке с соблюдения формально¬ 
стей, то есть создадим форму солидных размеров, так как многие задачи 
имеют до 50-80 клеток в ширину и высоту. Свойства формы: 

Ш.<±Ыі=72 9 
НеідЫ:=57 б 

Вог<1егІсоп5= [ЫЗузбешМепи, ЬіМіпітіге] 

ВогсіегЗ , Ьу1е=ЬзЗіпд1е 
Сарѣіоп=' ЯПОНСКИЙ РИСУНОК' 

Розі'Ьіоп=роВезк'ЬорСеп'Ьег 


По образу и подобию «бумажных» задач мы разместим на форме 3 сетки, 
роль которых исполнят фавориты наших программ - компоненты 
ТОгаѵѵСгісІ. 

сІдРоІе (игровое поле), его свойства: 

Со1Соиѣ=50 

Ое^аи1'ЬСо1Ш.сі'Ыі=14 (все ячейки будут иметь размер 14 х 14 пиксе¬ 
лей, иначе цифры будут слишком мелкими и плохо различимыми на 
экране) 

Ве^аи1Вгаѵід=Ра1зе (выводить содержимое ячеек будем сами) 

Бе^аи1'ЬКоѵНеідЬ'Ь=1 4 

Ріхе<1Со1з=0 

Ріхе<іКсж5=0 

НеідЫ;=419 

Ьѳіѣ=40 

0р'Ьіоп5= [доѴегбЪіпе, доНоггЫпе] (оставим только вертикальные и го¬ 
ризонтальные линии, другие возможности компонента нам не понадо¬ 
бятся) 

КоѵСои^бО 
5сго11Вагз=з зЫопе 
Тор=7 б 
ИіДОі=4 4 9 

сІдСоІзЫит (верхнее числовое поле) со свойствами: 

Со1Соиѣ=10 
Ое^аи1'ЬСо1Ш.сі'Ыі=14 
Ве^аи1Вгаѵід=Ра1зе 
Бе^аи1'ЬКоѵНеідЬ'Ь=14 
Ріхе<1Со1з=0 
Ріхе<іКсж5=0 
НеідЬЪ=33 
Ье^'Ь=4 4 


0р'Ьіопз= [доѴегёЪіпе, доНоггЪіпе] 

КоѵСоиѣ=4 
5сго11Вагз=з зЫопе 
Тор=7 6 
Ш.<Ші=4 4 9 

(ідЕоѵѵзИит (левое числовое поле): 
Со1Сои , Ь=4 

Ое^аи1'ЬСо1Ш.сі'Ыі=14 

Бе^аи1Бгаѵід=Га1зе 

Ое^аи1'ЫІоѵНеід1і , Ь=14 

Ріхе<іСо1з=0 

РіхесіКо»5=0 

НеідЫ:= 421 

Ье^'Ь=4 

0р'Ьіоп8= [доѴегёЪіпе, доНоггЪіпе] 

КоѵСоиѣ=10 
5сго11Вагз=ззЫопе 
Тор=7 б 
Ш.<Ші=33 


Так как размеры полей могут превышать возможности формы, то нам 
придётся позаботиться об их прокрутке , чтобы добраться и до скрытых от 
нашего пытливого взора частей рисунка. Для воплощения этой мечты 


удобнее всего воспользоваться услугами компонента ТЗсгоПВаг 


ТЕсгоІІВаг 


со страницы Зіапсіагсі Панели компонентов. Нетрудно догадаться, что их 
потребуется ровно два - для вертикальной - зЪѴегі. - и горизонтальной - 
зЪНогт. - прокрутки. Большинство их свойств можно не изменять в Ин¬ 
спекторе объектов, так как полосы прокрутки нам придётся устанавли¬ 
вать на форме в соответствии с размерами полей. Но о некоторых, посто¬ 
янных свойствах лучше позаботиться сразу. Для зЪѴегі: установите: 


Сигзог= сгНапсіРоіп'Ь (точно такой же курсор устанавливайте и для 
других компонентов, на которые придётся «нажимать») 

Кіп<1= зЬѴегёісаІ 

ЬагдеСЬапде=5 
Раде5іге=5 

Для зЬНогг : 

Кіпсі= зЬНогігопёаІ 

ЬагдеСЬапде=5 
РадеЗіге=5 


Для вывода актуальной информации мы установим на форме компонент 
ВіаШзВагІ 1 Т5ШизВаг : 


А1ідп=а1Воі:і:от 








Аи'ЬоЬіп^Тгие 
НеідЫ:=2 5 
51іоѵ]ііпѣ=Тгие 


Дважды щёлкните на нём и в Редакторе разметьте панели: 

О (в крайней левой панельке будут выводиться подсказки (Ыпѣ) : 
АІідптеп'Ь^аЬеД'ЬіТиз'ЬіДу 

Ш.<іиі=196; 

1 (следующая панелька покажет размеры загруженной картинки): 

АІідптеп^баСепбег 
Техѣ=' 28 х 28' 

№і<іЫі=60 ; 

2 (далее следует информация о числе клеток в картинке): 
А1ідшпепѣ=1:аСеп1:ег 

Тех^' Клеток: О' 

Юі<Ші=90; 

3 (горизонтальная координата курсора на игровом поле): 

АІідгшіеп^баСепбег 
ТехЪ=' Х= О' 

НісІ'Ыі=4 О ; 

4 (вертикальная координата курсора на игровом поле): 

А1 і дппіеп ѣ= 1: а С е п 1: е г 

Техѣ=' У= О' 

Ш.<Ші=4 0; 

5 (режим работы программы: ожидает ли она наших действий или ре 
шает задачу): 

АІідгшіеп^баСепбег 
Техѣ=' ОЖИДАНИЕ' 

Юі<Ші=90; 

6 (можете приспособить для своих нужд). 


Под заголовком формы разместите кнопки ТЗреедВиііоп : 

с| 

зЪШеѵѵРід —^ - служит для изменения размеров полей: 


НеідЬЪ=36 

Иісіѣ1і=3б (все остальные кнопки точно такие же квадратные) 

Ніп^' Размеры | Изменить размеры полей' 

Ье^=4 

ЗЬоѵЬіп^Тгие (установите у всех кнопок) 

Тор=0 (тоже у всех кнопок)); 


зЬіСІеагРоІе 


а 


- очищает все поля, игровое поле становится серым, верх 


нее и левое - белыми, без чисел: 


НіпЕ=' Очистить| Очистить поля'; 





БЪіѴѴІпіЬеСгід Ц=У - очищает все поля, игровое поле становится белым, что 
удобно для рисования новых картинок: 

Ніп*Ь=' Белая сетка | Белая сетка для рисования'; 


зЬШитЪегБ -^1і - оцифровывает нарисованную вами картинку: 

Сарѣіоп^ №' 

Ніп^' Оцифровать | Оцифровать рисунок' ; 

зЬНоасІРід - загружает сохранённые ранее картинки: 

Ніп^' Загрузить | Загрузить рисунок' 


Для её работы необходим компонент ТОрепЭіаІод со страницы Иіаіодз Па¬ 
нели компонентов; 




зЪЮрепРісіиге 
из них новых рисунков: 


загружает растровые рисунки и значки для создания 


Ніп^' Импорт | Импорт растров и значков' 


Для её работы установите компонент ТОрепРісіигеОіаІод 
той же страницы; 



ТОрепРісІъігеОіаІод 


С 


зЫЗаѵеРід 


- сохраняет на диске задачу (данные из числовых полей]: 


Ніпѣ=' Записать|Записать задачу') 


Потребуется компонент ТБаѵеОіаІод 
же; 



ТЗаѵеОіаІод ^ ^ .. 

, который вы найдете там 


БЪіЗаѵеРіс 



- сохраняет на диске рисунок (из игрового поля): 


Ніп^' Записать рисунок|Записать рисунок'; 

I 

БЪіБіагі —I - начинает автоматическое решение задачи: 


Ніпѣ=' Решить|Решить задачу'; 


БЪіЗіор ® 


останавливает решение задачи, если оно затягивается: 


Ніп{:= ' Остановить|Остановить поиск'; 















зЬіЕхіі 



- заканчивает работу с программой: 


Ніп*Ь=' Выход | Выход из программы'; 


Ещё три кнопки служат переключателями. 


зЪіЗоипд. 



- включает и выключает звуковые эффекты: 


А11оѵА11Пр=Тгие 

СгоирІп<іех=1 

Ніп^' Звук|Звук вкл-откл'; 


зЪШоѵе 



- включает и выключает режим перемещения рисунка: 


А1 1 оѵгАІ Юр=Т г ие 
СгоирІп<іех=2 

Ніпѣ=' Двигать | Двигать рисунок'; 


зЬЮгам/ 


- включает и выключает режим рисования картинки и ручно¬ 


го решения задачи: 


А11оѵА11Пр=Тгие 

СгоирІп<іех=3 

НіпЬ=' Рисование, решение |Рисовать картинку, решать задачу'. 


И последнее, что нам осталось, - уютно разместить на форме две метки 
(вы можете легко обойтись и без них): 

ІЪШеасІу - показывает число разгаданных клеток рисунка (при автомати¬ 
ческом решении): 

Ніп^' Разгадано | Число разгаданных клеток'; 

ІЫЬеѵеІ - показывает сложность решения задачи (число предположений, 
«сомнительных» клеток: 


Ніпѣ=' Уровень|Сложность решения задачи'. 

В итоге перед вашим взором должна открыться такая картина (Рис. 3.27). 

Вы можете переставить «мебель» по своему вкусу, да только зачем? Сейчас 
для нас куда важнее наполнить форму нужным содержанием, чтобы она не 
только радовала взор, но и славно на нас работала. 







Рис. 3.27. Лицевая сторона нашего приложения 


Занимательная механика, или За кулисами формы 

Природа не терпит пустоты. 

Сказал один мудрец 
Но часто наполняет её всякой дрянью. 

Добавил другой 

Предположим, что вас сильно огорчила некая японская задача, которая 
спутала вам все карты и жизненные планы, а вы не такой человек, чтобы 
безропотно сносить удары судьбы. Тогда вооружитесь компьютером и 
нанесите ответный удар. 

Итак, ваш противник в виде несгибаемой задачи строит вам фигуры со 
станицы газеты, а то и журнала. Компьютер газет не читает (да и журна¬ 
лов тоже), поэтому нужно подать ему головоломку на блюдечке с голубой 
каёмочкой. Сервировать блюдо можно по-разному. Первое что приходит в 
голову - просто перенести числа из газеты в числовые поля нашей про¬ 
граммы. 










































Компонент ТОгаѵѵСгісІ вполне уместен для отображения информации, но 
хранить данные он не умеет, поэтому каждой сетке мы сопоставим массив. 
Перед определением типа формы запишем (все остальные переменные, не 
относящиеся к процедурам, мы также будем объявлять в этом разделе): 


ѵаг 

//массив Л в котором хранится копия поля 
шазРоІе : ТРоІе; 


Так как подобные массивы пригодятся нам и в других случаях, то перед 
разделом переменных мы опишем тип игрового поля : 


//данные игрового поля 

Ъуре ТРоІе = аггау[0. .МАХ_Р0ЪЕ_ИІБТН-1, 0.. МАХ_Р0ЪЕ_НЕІ6НТ-1 ] оі 
ІпРедег ; 


Верхние границы массива лучше задать в виде констант - и понятнее, и 
легче изменить в случае необходимости. Константы объявляем сразу по¬ 
сле раздела изез: 


ипіѣ ИірропІІпіѣ ; 

/////////////////////////////////////////////////////////////////////////// 

// // 

// ПРОГРАММА ДЛЯ РЕШЕНИЯ ЯПОНСКИХ ГОЛОВОЛОМОК // 

// // 

/////////////////////////////////////////////////////////////////////////// 

іпРегЕасе 

изез 

Иіпсіоиз, Меззадез, 5узШ:і1з, Сіаззез, СгарЪісз, СопРгоІз, Еогшз, 
Оіаіодз, 

ЕхРС'ЬгІз, 5'ЬсіС'ЬгІз, бгісіз, СотСЕгІз, ВиЕДоиз, ттэузЕет, ЕхРЕІдз; 
сопзД 

ИАМЕ_РКОС = 'ЯПОНСКИЙ РИСУНОК' ; 

МАХ_РОЬЕ_Ѵ7ІБТН = 70; //макс, ширина поля в клетках 
МАХ РОЬЕ НЕІ6НТ = 50; //макс, высота поля в клетках 


Установленные предельные размеры сетки позволяют загрузить практи¬ 
чески все существующие задачи. Если же вам этого недостаточно, вы мо¬ 
жете увеличить их. Но имейте в виду, что большие и плохо составленные 
задачи могут потребовать достаточно много времени для решения! 

В массиве игрового поля мы будем хранить данные о цвете клеток. 
Помните, как нам приходилось хитрить, чтобы отметить разгаданные бе¬ 
лые клетки? И это всё из-за того, что не решённые ещё клетки на бумаге 
тоже белые. Но компьютер не газета, поэтому мы просто сделаем неиз- 








вестные клетки серыми, а известные, как и полагается, белыми и чёрными. 
Для удобства пользования и в целях профилактики склероза объявим со¬ 
ответствующие константы. 


ШМ_ШІІТЕ = 2; //белая клетка в тазРоІе 

1ТОМ_ВІіАСК = 1; //чёрная клетка в тазРоІе 

1ТОМ СКАѴ =0; // серая клетка в тазРоІе (фон) 


Эти же клетки на игровом поле мы будем окрашивать в нужные цвета: 


СОЬОР.__ѴШІТЕ : ТСо1ог= $ЕЕЕЕЕЕ; //белая клетка на поле 
СОЬОР._ВІіАСК : ТСо1ог= $0; //чёрная клетка на поле 

С0Ь0К_6ЕАУ : ТСо1ог= $7Е7Е7Е; //серая клетка на поле 


Текущее значение размеров поля мы будем хранить в переменных: 


РОЬЕ_ѴЛБТН: іпбедег = 28; //ширина поля в клетках 

РОЬЕ_НЕІСНТ: іпбедег = 28; //высота поля в клетках 


Массивы для числовых полей отличаются от массива игрового поля не 
только размерами, но и структурой: 


//массив, в котором хранятся верхние числа: 

тазСоІзЫглп : аггау[0.. МАХ_РОЪЕ_ВДІБТН-1 , -1 . .МАХ_СЕЪІЖМ-1 ] оЕ 

ТСеІІ ; 

//массив, в котором хранятся левые числа: 

шазКоѵзЫглп : аггау [-1. .МАХ_СЕЪІЖМ-1 , 0 . . МАХ_РОЪЕ_НЕІСНТ-1 ] оТ 

ТСеІІ; 


В каждой ячейке массивов будет храниться число, записанное в соответ¬ 
ствующей клетке сетки (нам понадобится не только само число, но и его 
представление в виде строки ), а также статус группы, для описания кото¬ 
рого мы введём новый тип-. 


//статус групп в числовых полях: 

//збШіібе - группа не решена, 

//збУеІІоѵ - группа решена, 

//зРСгееп - ряд решён 

■Ьуре ТЗ-Ьа-ЬизСгоир= (збШіібе, збУеІІои, збСгееп) ; 

//данные для каждой клетки числовых полей: 

•Ьуре ТСеІІ = Кесогб 

зЫиш: Збгіпд; //строковое представление числа в клетке 

Ыит: іпбедег; //число в клетке 

ЗбабизСгоир: ТЗбабизСгоир; //статус группы 
епб; 


Кроме того, в ячейках с индексом -1 мы будем хранить число групп в дан¬ 
ном ряду. 












Объявим также константу, ограничивающую размеры числовых полей: 


МАХ СЕЬЫТОМ = 14; //макс, ширина/высота числовых полей 


Этого значения вполне достаточно для большинства заданий (правильнее 
сказать, для всех разумных заданий). Впрочем, никто не помешает вам 
увеличить его по собственному разумению. О последствиях этого читайте 
выше. 


Переменные для текущих (установленных) размеров числовых полей: 


ЬЕРТ_РОЬЕ_ЮІБТН: 

іп1:едег 

= 2; 

//ширина левого числового поля в 

клетках 




ТОР_РОЬЕ_НЕІСНТ: 

іпііедег 

= 2; 

//высота верхнего числового поля в 

клетках 





Очевидно, что высота левого числового поля равна высоте игрового поля, 
а ширина верхнего числового поля - ширине игрового поля (если для вас 
это не очевидно, а невероятно, то просто внимательно посмотрите на кар¬ 
тинку с формой). 

Так как размеры экрана обычного монитора не позволяют целиком отоб¬ 
разить всё поле больших размеров, то мы должны ввести константы для 
предельных размеров «вырезки» поля: 


МАХ_АЫі__СЕІіІіЗ_НЕІСНТ = 30; //макс, высота игрового и числово¬ 

го полей 

//(видимая часть) 

МАХ_АЬЬ__СЕЬЬ5_И1БТН = 46; //макс, ширина игрового и числово¬ 

го полей 


Для пущего куражу введём несколько нестандартных курсоров (в разделе 
констант): 


//курсоры: 

сгНапсі : іпРедег= 4; 
сгМоѵе : іпРедег= 5; 
сотКл-З^ : іпРедег= 7; 


Не забудьте подключить к проекту файл ресурсов со своими курсорами: 


{$К *.ОГМ} 

{$К МуСигзогз.гез} 


За режим работы программы будет отвечать переменная: 


З'Ьа'Ьиз: з'Ьгіпд=''; 














Благодаря ей, нажимая любую кнопку (я надеюсь, вы понимаете, о каких 
кнопках речь), мы сможем узнать, что делает наша программа. Если она 
занята решением задачи, то беспокоить её не следует. Можно отключать 
все «лишние» кнопки на время решения задачи, но это потребует больших 
усилий. 

Название картинки мы будем хранить в переменной : 


ЫашеЕід: зЬгіпд= ' Ьетр ' ; 


Если картинка не загружалась и не сохранялась на диске, то имя ей - іетр. 
Название картинки, чтобы не забыть оного, мы будем выводить в заголов¬ 
ке формы. 

Чтобы лучше ориентироваться в «пространстве», мы будем следить за по¬ 
ложением курсора в сетках: 


//координаты клетки с 

курсором : 

сеІІМоизе: ТРоіпЬ; 

//игровое поле 

сеІІМоизеТор : ТРоіпЬ; 

//верхнее числовое поле 

сеІІМоизеЬеГЬ : ТРоіпЬ; 

//левое числовое поле 

Ещё две переменные будут следить за количеством клеток: 

АІІСеІІз : ІпЬедег=0; 

//всего клеток на поле 

КеасіуСеІІз : ІпЬедег=0; 

//разгадано клеток 


Теперь у нас есть всё для того, чтобы начать творить. Объявим две проце¬ 
дуры, с помощью которых можно вернуть массивам девственную чистоту: 


{ РгіѵаЬе сіесІагаЬіопз } 
ргосесіиге С1еаг_тазСо1зПит; 
ргосесіиге С1еаг_тазКоизПит; 


Сами процедуры очень просты: мы стираем все числа в ячейках и указыва¬ 
ем, что ряд не решён: 


//ОЧИСТИТЬ МАССИВ ВЕРХНЕГО числового ПОЛЯ 

ргосесіиге ТРогшІ . С1еаг_тазСо1з№лп ; 

ѵаг 

і , з : іпЬедег ; 

Ьедіп 

Гог і := 0 То МАХ_РОЪЕ_1л7ІОТН-1 сіо 
Гог з := -1 іо МАХ_СЕЫЖМ - 1 сіо 
Ьедіп 

тазСоІзИит[і,з]. зИит :=''; // - числа нет 

тазСоІзИиш[і,^].ЗЬаЬизСгоир:= зЬШііЬе;// - ряд не решён 
епсі 













епсі; 

//ОЧИСТИТЬ МАССИВ ЛЕВОГО ЧИСЛОВОГО ПОЛЯ 

ргосесіиге ТРогшІ. С1еаг_тазКоѵзНиш; 

ѵаг 

і,□ : ІпЬедег; 

Ьедіп 

Еог і := -1 То МАХ_СЕЬЬШМ-1 сіо 

Гог ^ := 0 Го МАХ_РОЪЕ_НЕIСНТ - 1 сіо 

Ьедіп 

тазКоизЬТит [і,^]. зЬГит: =''; // - числа нет 

тазКоизЫит [і,^] .ЗЬаЬизСгоир:= зЬШііЬе;// - ряд не решён 
епсі 

епсі; 


После этих процедур объявляем ещё одну: 


ргосесіиге ІпѵаІісіаЬеСгісіз; 


Она будет «освежать» игровое и числовые поля после глобальных измене¬ 
ний: 


//ОБНОВИТЬ ПОЛЯ 

ргосесіиге ТРогшІ . ІпѵаІісіа'ЬеСгісІз ; 

Ьедіп 

сідРоІе. ІпѵаІісіаЬе; 

ЬдСоІзЬГит. ІпѵаІісіаЬе; 

ЬдКоизИит. ІпѵаіісіаЬе; 
епсі; 


В типе формы объявите процедуру, которая будет подготавливать сетки 
заданных размеров и при необходимости добавлять полосы прокрутки: 

ргосесіиге Ргераге (СоІСоипЬ, КоиСоипЬ, ТорСоипЬ, ЬеЬЬСоипЬ: ІпЬе- 
дег) ; 


//ПОДГОТОВИТЬ НОВУЮ ИГРУ 

ргосесіиге ТРогшІ. Ргераге (СоІСоипЬ, КоиСоипЬ, ТорСоипЬ, ЬеЬЬСоипЬ: 
ІпЬедег); 

//СоІСоипЬ - число колонок на игровом поле 
//КоиСоипЬ - число строк на игровом поле 
//ТорСоипЬ - число строк на верхнем поле 
//ЬеЬЬСоипЬ - число колонок на левом поле 
ѵаг 

и,Ь,1н: ІпЬедег; 
і^,п: ІпЬедег; 

Ьедіп 

//скорректировать размеры полей: 

ІЬ Со1СоипЬ< 2 ЬЬеп СоІСоипЬ:= 2; 

ІЬ КоиСоипЬ< 2 ЬЬеп КоиСоипЬ:= 2; 

ІЬ ТорСоипЬ< 1 ЬЬеп ТорСоипЬ:= 1; 

ІЬ ЬеЬЬСоипЬ< 1 ЬЬеп ЬеЬЬСоипЬ:= 1; 












// 

//============= игровое поле =============== 

// 

//размер клетки в пикселах: 
от: = сідРоІе . ЕеРаиІРСоІЭДісІРЬ; 

Ь.: = сідРоІе . ВеРаиіРР.оотНеідЬР; 

//толщина линий: 

іот : = сідРоІе . СгісіЬіпеЫсіРЬ; 

//размеры игрового поля в клетках: 
сідРоІе . СоіСоипР : = СоіСоипР; 
сідРоІе . КоотСоипР: = КоотСоипР; 
і:= СоіСоипР; 

^:= КоотСоипР; 

//если ширина игрового поля + ширина левого числового поля 
// превышают МАХ_АЬЬ_СЕЬЬ8_Ѵ\[ІРТН клеток, 

//то поставить вертикальную полосу прокрутки: 

ІР СоіСоипР > МАХ_АЬЬ_СЕЬЬЗ_Ѵ\ГІВТН - ЬеРРСоипР РЬеп Ьедіп 
і:= МАХ_АЬЬ_СЕЬЬЗ_Ѵ\ГІЕТН - ЬеРРСоипР; 
зЬНогг . ѴізіЫе : = Ргие 
епсі 

еізе зЬНогг .ѴізіЫе : = Раізе; 

//если высота игрового поля + высота верхнего числового поля 
// превышают МАХ_АЬЬ_СЕЬЬЗ_НЕІСНТ клеток, 

//то поставить горизонтальную полосу прокрутки: 

ІР КоотСоипР > МАХ_АЬЬ_СЕЬЬЗ_НЕІСНТ - ТорСоипР РЬеп Ьедіп 
^:= МАХ_АЬЬ_СЕЬЬЗ_НЕІСНТ - ТорСоипР; 
зЬѴегР . ѴізіЫе : = Ргие 
епсі 

еізе зЬѴегР .ѴізіЫе : = Раізе; 

//размеры в пикселах видимой части игрового поля: 
сідРоІе. ЫЬРЬ. : = 3 + (от + іот)* і + 1; 
сідРоІе. НеідЬР: = 3 + (Ь + Іот)* ^+1; 

// 

//==================== числовые поля ========================= 

// 

//размеры клеток числовых полей = размерам клеток игрового поля: 
ЬдСоЬзЫит. ЬеРаиіРСоіЫсІРЬ. : = от; 
сідСоІзЕит . ЬеРаиІРКоотНеідІіР : = Ь; 

ЬдКоотзЫит. ЬеРаи1РСоіѴ\[ісіРЬ. : = от; 

ЬдКоотзЫит. ЬеРаи1РР.оотНеідЬР := Ь; 

//размеры числовых полей: 

ЬдСо1зЕ[ит. СоіСоипР : = СоіСоипР; // = ширине игрового поля 
ЬдСоІзЫит . ЫсЗРЬ: = сідРоІе . ЫсЗРЬ; 
сідСо1зЕит.КоотСоипР: = ТорСоипР; // задаётся 
//высота верхнего числового поля в пикселах: 

ЬдСоЬзЫит. НеідЬР : = 3 + (Ъ. + Іот)* ТорСоипР; 

//высота левого числового поля в клетках = высоте игрового по¬ 
ля : 

ЬдКоотзЫит. КоотСоипР : = сідРоІе . КоотСоипР ; 

//высота левого числового поля в пикселах: 

ЬдКоотзЫит. НеідЬР : = сідРоІе . НеідЬР; 

ЬдКоотзЫит. СоіСоипР := ЬеРРСоипР; // задаётся 
//ширина левого числового поля в пикселах:: 












ЬдКомзЫит. ЭДісіРЬ.: =3 + (Ь + Іѵг) * ЬеРРСоипР; 

//положение на форме: 

сідСоІзЫит. ІеРР: = ЬдКомзЫит. ЬеРР + ЬдКомзЫит. Ѵ\ГісіілЬ.; 

ЬдКомзЫит.Рор:= сідСоІзЫит. Рор + сідСоізКит. НеідЬР; 
сідРоІе . 1:ор : = ЬдКомзЫит. Рор; 
сідРоІе .ЬеРР: =сідСо1зЫит. ЬеРР; 

// 

//============== полосы прокрутки ================= 

// 

//разместить полосы прокрутки рядом с игровым полем: 

іР зЪѴегР. ѵізіЫе РЬеп 

Ьедіп 

//коорд. левой стороны верт . полосы прокрутки: 
зЪѴегР . ЬеРР : = сідРоІе. ЬеРР+ сідРоІе. Ѵ\[ісіРЬ+ 5; 

//её высота: 

зЪѴегР . НеідЬР : = сідРоІе . НеідЬР; 

//коорд. верхней стороны: 
зЪѴегР. Тор := сідРоІе. Рор; 

//макс, позиция: 

п : = сідРоІе . КомСоипР - (МАХ_АЬЬ_СЕЬЬ5_НЕІСНТ- 
ЬдСо1зЬ[ит. КомСоипР) ; 

іР п< зЪѴегР.ЬагдеСЬапде РЬеп п:= зЪѴегР.ЬагдеСЬапде; 
зЬѴегР.Мах := п+4; 
епсі; 

іР зЬНог г . ѵізіЫе РЬеп 
Ьедіп 

//коорд. верхней стороны гориз. полосы прокрутки: 
зЪНогг.Тор := сідРоІе.Рор+ сідРоІе. НеідЬРР 5; 

//ширина: 

зЬНог г . ЭДісіРЬ : = сідРоІе . ЭДісіРЬ; 

//коорд. левой стороны: 
зЬНогг . ЬеРР : = сідРоІе .ЬеРР; 

//макс, позиция: 

п:= сідРоІе. СоІСоипР - (МАХ_АЬЬ_СЕЬЬ5_Ѵ\ГІЬТН- 
ЬдКомзЫит.СоІСоипР) ; 

іР п< зЪНог 2 .ЬагдеСЬапде РЬеп п:= зЪНогг.ЬагдеСЬапде; 
зЪНог 2 .Мах:= п; 
епсі; 

//вывести размеры фигуры в панели: 

зРаРизЬагІ.Рапеіз[1] .РехР:= ІпРРозРг(СоІСоипР)+ ' х ' + іпРРо- 
зРг(КомСоипР); 

//подсчитать число клеток в фигуре: 

А11Се11з:= СоІСоипР * КомСоипР; 

зРаРизЬагІ.Рапеіз[2] .РехР: = 1 Клеток : ! +ІпРРозРг(АІІСеІІз); 

епсі; //Ргераге 


Если картинка не видна на экране целиком, то её можно перемещать с по¬ 
мощью полос прокрутки. Хитрость же заключается в том, что при сдвиге 
игрового поля по горизонтали одновременно должно сдвигаться и верхнее 
числовое поле, а при сдвиге по вертикали - левое числовое поле, иначе 
данные в них сместятся по отношению к рядам игрового поля. 








//СИНХРОННО СДВИГАТЬ ПОЛЯ ПО ГОРИЗОНТАЛИ 

ргосесіиге ТРогтІ . зЬНоггЗсгоІІ (Зепсіег: ТОЪдесД; ЗсгоІІСосіе: 

ТЗсгоІІСосіе; 

ѵаг ЗсгоІІРоз: ІпЬедег); 

Ьедіп 

сідРоіе . ЬеіЬСоІ: = ЗсгоІІРоз; сідСоІзИит. ЬеіЬСоІ: = сідРоіе. ЬеіЬСоІ; 
епсі; 

//СИНХРОННО СДВИГАТЬ ПОЛЯ ПО ВЕРТИКАЛИ 

ргосесіиге ТРогтІ. зЪѴегЬЗсгоІІ (Зепсіег: ТОЬдесД; ЗсгоІІСосіе: 

ТЗсгоІІСосіе; 

ѵаг ЗсгоІІРоз: ІпЬедег); 

Ьедіп 

сідРоІе . ТорКом := ЗсгоІІРоз; ЬдКомзИит. ТорКом : = сідРоІе . ТорКом; 
епсі; 


Щёлкните по носу кнопку зЪіСІеагРоІе и напишите: 


//очистить ПОЛЯ 

ргосесіиге ТРогтІ. зЪЬСІеагРоІеСІіск (Зепсіег : ТО^есЬ); 
ѵаг 

i г І : ІпЬедег; 

Ьедіп 

ii зЬаЬиз= 1 ПОИСК ' ЬЬеп ехіЬ; 

//все клетки поля - серые: 

Еог і := 0 То Р0ЬЕ_Ш0ТН-1 сіо 

Еог ^ := 0 Ьо РОЬЕ_НЕІСНТ - 1 сіо 

шазРоІе[і,Л := ШМ_СКАУ; 

//очистить цифровые поля: 

С1еаг_шазСо1зКит; 

С1еаг_тазКомзИит; 

ІпѵаіісіаЬеСгісіз ; 

//фигура не загружена: 

ИатеЕід:= 1 Ьетр 1 ; 

//вывести в заголовке формы имя временного файла: 
сарЬіоп:= ИАМЕ_РКОС + 1 [' + ИатеЕід + '] 

//координаты мыши: 
сеіітоизе.х: =-1 ; сеіітоизе.у: =-1 ; 
епсі; 


Нажимайте на неё всякий раз, когда вам потребуется очистить все поля. 
Аналогично поступите и с кнопкой зЪіѴѴІіііеСгМ-. 


//ОЧИСТИТЬ ПОЛЕ ДЛЯ РИСОВАНИЯ 

ргосесіиге ТРогтІ. зЬШЬі-ЬеСгісіСІіск (Зепсіег : ТОЬ^есЬ); 
ѵаг 

і, з : ІпЬедег; 

Ьедіп 

ІЬ зЬаЬиз=' ПОИСК ' ЬЬеп ехіЬ; 

//все клетки - белые: 

сідРоІе . Сапѵаз . Вгизіі. Соіог : =СОЬОК_ШіІТЕ; 

Еог і := 0 То МАХ РОЬЕ ИЮТН-1 сіо 








Еог ^ := 0 іо МАХ_РОЬЕ_НЕIСНТ - 1 Йо 

тазРоІе[і, Л := ШМ_ИНІТЕ; 

//очистить цифровые поля: 

С1еаг_шазСо1зЫит; 

С1еаг_тазКоизЫит; 

ІпѵаІісіаЕеСгісіз ; 

//фигура не загружена: 

ИатеЕід :=' Еетрі '; 

//вывести в заголовке формы имя загруженного файла: 
сарЕіоп:= ИАМЕ_РКОС + ' [' + ИатеЕід + '] 

//координаты мыши: 

сеіітоизе .х:=-1; сеіітоизе .у:=-1; 
епсі; 


Она пригодится нам в скором светлом будущем, когда мы начнём рисо¬ 
вать свои картинки на игровом поле. Обе эти процедуры различаются 
только одной строкой, поэтому правильнее будет объединить их в одну 
(домашнее задание!). 

Все данные о группах и цвете клеток на игровом поле хранятся в массивах, 
и в сетках на форме ничего не появится, пока мы сами не позаботимся об 
этом. Как обычно, прорисовка клеток всех сеток происходит при вызове их 
метода ЭтѵѵСеІІ. 

Для игрового поля это делается так. Определяем, какое число стоит в мас¬ 
сиве на соответствующем месте, и закрашиваем клетку нужным цветом. 
Затем для лучшей ориентировки на поле проводим красные линии (если 
они на вас действуют, как красная тряпка на быка, просто сотрите часть 
кода). 


//НАРИСОВАТЬ КЛЕТКУ ИГРОВОГО ПОЛЯ 

ргосесіиге ТРоппІ . сІдРоІеБгаѵгСеІІ (Зепсіег: ТО^есЕ; АСоІ, АКои: ІпЕе- 
дег ; 

КесЕ: ТКесЕ; ЗЕаЕе: ТСгісШгаиЗЕаЕе); 
ѵаг агеа: ЕКесЕ; 

Ьедіп 

//закрасить клетку нужным цветом: 
агеа : =сідРо1е . СеІІКесЕ (АСоІ, АКои) ; 
сазе тазРоІе[АСоІ, АКои] оЕ 

ШМ_ШІТЕ : сідРоІе . Сапѵаз . ВгизН . Соіог : =СОЬОК_ШІТЕ ; 

ШМ_ВЬАСК: сідРоІе . Сапѵаз . ВгизЬ . Соіог : =СОЬОР_ВЬАСК; 

КИМ_СКАУ : сідРоІе . Сапѵаз . ВгизН . Соіог : =СОЬОК_СКАУ ; 
епсі; 

сідРоІе . Сапѵаз . ЕіІІКесЕ (агеа) ; 

//проводим красные линии через 5 клеток: 

ІЕ (АСо1>0) апсі (АСоІ тосі 5 = 0) ЕЬеп Ьедіп 
сідРоІе . Сапѵаз . Реп . Соіог : = сІКесі; 
сідРоІе . Сапѵаз .МоѵеТо (КесЕ . ЬеЕЕ, КесЕ . Тор) ; 
сідРоІе . Сапѵаз . ЫпеТо (КесЕ .ЬеЕЕ, КесЕ . ВоЕЕогп) 






епсі; 

ІЬ (АКоѵ>0) апсі (АКоѵ тосі 5 = 0) ЬЬеп Ьедіп 
сідРоІе . Сапѵаз . Реп . Соіог : = сІКесі; 
сідРоІе . Сапѵаз . МоѵеТо (КесЬ .ЪеЬЬ, КесЬ . Тор) ; 
сідРоІе . Сапѵаз . ЪіпеТо (КесЬ . КідЬЬ, КесЬ . Тор) 
епсі; 

епсі; //сідРоІеЪгаѵСеІІ 


В числовых полях мы действуем аналогично, но нам нужно ещё вывести 
стоящие в клетках числа : 


//ПРОРИСОВАТЬ ЯЧЕЙКУ 

ргосесіиге ТРогшІ . сідСоІгІІшііОгаѵгСеІІ (Зепсіег: ТО^есЬ; АСоІ, АКом: 

ІпЬедег; 

КесЬ: ТКесЬ; ЗЬаЬе: ТСгісШгаиЗЬаЬе) ; 

ѵаг 

зЪГит: зЪгіпд; 

Ьедіп 

//если столбец решён, отмечаем его зелёным цветом: 
сазе тазСоІзЫит[АСоІ, -1].ЗЬаЬизСгоир оЬ 

зЬСгееп: сідСоІзИит. Сапѵаз . ВгизЬ. Соіог : = КСВ(0,255,0); 
еізе Ьедіп //- столбец не решён 

//если группа решена, выделить её жёлтым цветом: 
іі тазСоІзИит[АСоІ,АКоѵ].ЗЬаЬизСгоир= зЬУеІІоѵ ЬЬеп 
сідСоІзЫит. Сапѵаз . ВгизЬ. Соіог : = сІУеІІом 
еізе сідСоІзЫит. Сапѵаз . ВгизЬ. Соіог : = сІШііЪе; //- иначе белым 
епсі 
епсі; 

сідСоІзЪГит. Сапѵаз . ЕіІІКесЬ (КесЬ) ; 

//выводим число в клетке (АСоІ, АКоѵ): 
зЪГит: = тазСоІзЫит[АСоІ, АКом].зЪГит; 
ѵіЬЬ КесЬ, сідСоІзИит. Сапѵаз сіо 

ЬехЬгесЬ (КесЬ, 1еЬЬ+ (гідЬЪ-ІеЬЪ-ЬехЬѵісіЪЬ (зИит) ) сііѵ 2, 

Ьор+(ЬоЪЪот-Ъор-ЪехЪЬеідЬЬ (зЪГит) ) сііѵ 2, зЪГит) ; 
//нарисовать красные линии через 5 клеток: 

ІЬ (АСо1>0) апсі (АСоІ тосі 5 = 0) ЬЬеп Ьедіп 
сідСоІзЪГит. Сапѵаз . Реп . Соіог : = сІКесі; 
сідСоІзИит. Сапѵаз .МоѵеТо (КесЬ . ЪеЬЬ, КесЬ . Тор) ; 
сідСоІзЪГит.Сапѵаз.ЪіпеТо(КесЬ.ЪеЬЬ,КесЬ.ВоЬЬот) 
епсі; 

ІЬ (АКоѵ>0) апсі (АКоѵ тосі 5 = 0) ЬЬеп Ьедіп 
сідСоІзЪГит. Сапѵаз . Реп . Соіог : = сІКесі; 
сідСоІзЫит. Сапѵаз .МоѵеТо (КесЬ . ЪеЬЬ, КесЬ . Тор) ; 
сідСоІзИит. Сапѵаз . ЪіпеТо (КесЬ . КідЬЬ, КесЬ . Тор) 
епсі; 

епсі; // ЬдСоІзЫитБгамСеІІ 

//ПРОРИСОВАТЬ ЯЧЕЙКУ 

ргосесіиге ТРогшІ.(ідКоѵгзЫигпОгаѵгСеІІ (Зепсіег: ТО^есЬ; АСоІ, АКом: 

ІпЬедег; КесЬ: ТКесЬ; 

ЗЬаЬе: ТСгісШгамЗЬаЬе); 

ѵаг 






зЪГит: зЬгіпд; 

Ьедіп 

//если столбец решён, отмечаем его зелёным цветом: 
сазе тазКоѵзЫит [-1, АКоѵ] .ЗЬаЬизСгоир оЬ 

зЬСгееп: ЬдКоизЪГит. Сапѵаз . ВгизЪ.. Соіог : = КСВ(0,255,0); 
еізе Ьедіп //- столбец не решён 

//если группа решена, выделить её жёлтым цветом: 

ІЬ тазКоизЫит [АСоІ, АКом] . 8ЬаЬизСгоир= зЬУеІІои Ыіеп 
ЬдКомзЫит. Сапѵаз . ВгизЪ. Соіог : = сІУеІІоѵ 
еізе ЬдКоизЪГит. Сапѵаз . ВгизЪ. Соіог : = сІШііЬе; //- иначе белым 
епсі 
епсі; 

ЬдКоизЪГит. Сапѵаз . ЕіІІКесЬ (КесЬ) ; 
зЫит:= тазКомзЫит[АСоІ, АКои].зЪГит; 
ѵЫЬЪ КесЬ, ЬдКомзЫит .Сапѵаз сіо 

ЪехЬгесЬ (КесЬ, ІеЬЫ-(гідЪЪ-ІеЬЪ-ЬехЬиісіЪЪ (зЫит) ) сііѵ 2, 

Ьор+(ЬоЪЪот-Ъор-ЪехЪЪеідЪЬ(зЫит)) сііѵ 2, зЫит); 
//нарисовать красные линии через 5 клеток: 

ІЬ (АСо1>0) апсі (АСоІ тосі 5 = 0) Ыіеп Ьедіп 
ЬдКомзЫит . Сапѵаз . Реп . Соіог : = сІКесі; 

ЬдКомзЫит. Сапѵаз .МоѵеТо (КесЬ . ЪеЬЬ, КесЬ . Тор) ; 

ЬдКоизЪГит. Сапѵаз.ЪіпеТо(КесЬ.ЪеЬЬ,КесЬ.ВоЬЬот) 
епсі; 

ІЬ (АКом>0) апсі (АКом тосі 5 = 0) Ыіеп Ьедіп 
ЬдКоизЪГит . Сапѵаз . Реп . Соіог : = сІКесі; 

ЬдКомзЫит. Сапѵаз .МоѵеТо (КесЬ . ЪеЬЬ, КесЬ . Тор) ; 

ЬдКоизЪГит. Сапѵаз . ЪіпеТо (КесЬ . КідЪЬ, КесЬ . Тор) 
епсі; 

епсі; // ЬдКоѵзЫитБгамСеІІ 


Сделайте двойной щелчок на форме и в открывшейся заготовке процеду¬ 
ры напишите: 


//СОЗДАТЬ ФОРМУ 

ргосесіиге ТРогхпІ. ЕогшСгеаЬе (Зепсіег : ТО^есЬ); 

Ьедіп 

//очистить поля: 
зЬЬСІеагРоІеСІіск(зеІЬ); 

//вывести сетки заданных размеров: 

Ргераге(РОЪЕ_ИІЪТН,Р0ЪЕ_НЕІ6НТ, ТОР_РОЪЕ_НЕІСНТ, 

ЪЕЕТ_РОЪЕ_Ѵ\ГІЪТН); 

//загрузить курсоры: 

Зсгееп.Сигзогз[сгКіз^] := ЪоаЬСигзог (ЬіпзЬапсе, ' кіз^') ; 

Зсгееп . Сигзогз [ сгНапсі] := ЪоаЬСигзог (ЬіпзЬапсе, ' Ъапсі' ) ; 

Зсгееп.Сигзогз[сгМоѵе] := ЬоаЬСигзог (ЬіпзЬапсе,'тоѵе'); 

//установить курсор для игрового поля: 
сідРоІе. Сигзог :=сгНапсі; 
епсі; 


Осталось нагрузить делом кнопку зЪіЕхіѴ. 






//ЗАКРЫТЬ ПРОГРАММУ 

ргосесіиге ТРогшІ . зЬѢЕхі-ЬСІіск (Зепсіег : ТОЪ^есЬ); 
Ьедіп 
сіозе 
епсі; 


- и можно, наконец, запустить программу. 

Работать она будет исправно: все поля и кнопки на месте и ждут ваших 
решительных действий. Но, скорее всего, нужные нам размеры полей не 
совпадут с теми, что установлены по умолчанию (смотрите объявления 
констант]. Так что нам придётся позаботиться об изменении их размеров. 

Так как на главной форме места уже не осталось, мы добавим к проекту 
новую форму, на которой и разместим все потребные для этого элементы 
управления (Рис. 3.28]. 



Рис. 3.28. Форма для изменения размеров сеток 

Свойства формы: 

Вог<іегТсопз= [ЫЗузѣетМепи] 
ВогсІег5 , Ьу1е=ЪзВіа1од 

Сарѣіоп=' Введите размеры новых полей' 
Нате=^гшЫеѵЕід 

ЪаЬеІІ: СарРіоп=' Ширина поля:' 

ЬаЬе12: СарРіоп=' Высота левого поля:' 
ЬаЬеІЗ: СарЬ іоп=' Числовые поля:' 

ЬаЬе14: СарРіоп=' Высота верхнего поля:' 
ЬаЬе15: СарЬ іоп=' Ширина левого поля:' 
ЬЫРо1еШ.<іЫі, ІЫРоІеНеідЬ-Ь: СарЬіоп='20' 
ІіЫТорНеідЬѢ, ІЫЬе^ШісІЫі: СарРіоп='2' 


Компоненты ТЦрОоѵѵп 
компонентов : 



возьмите на странице Шп32 Палитры 


ЧрВоѵтРоІеИісі'Ыі, ирБоѵтРоІеНеідЬ: 


























































Міп=2 

ОгіепЬаѣіоі^исіѴегЬісаІ 

РозіЬіоп=2 

ОрБоѵтТорНеідЬЬ, ЦрБоѵпіІ.е^'ЬМісі'ЬЬ: 
Міп=1 


И кнопка зЪЮК - для комплекта. 

Процедуры, модуля ЫеуѵРідІІпіі: настолько просты, что любые комментарии 
к ним излишни: 


ипіЬ ЫеѵРідЦпі'Ь; 

іпЬегЬасе 

изез 

Иіпсіоиз, Меззадез, ЗузЫЬііз, Сіаззез, Сгарііісз, СопЬгоіз, Рогтз, 
Ьіаіодз, 

ЗЬЬСЬгіз, 001:1011x13, ВиЬЬопз; 

Руре 

ТЬгтЫеѵГід = сіазз (ТГогт) 

ЬаЬеіІ: ТЬаЬеІ; 

ЬаЬе12 : ТЬаЬеІ; 

ЬаЬеіЗ: ТЬаЬеІ; 

ЬаЬе14 : ТЬаЬеІ; 

ЬаЬе15: ТЬаЬеІ; 

1ЫРоіе1л7ісіЫі: ТЬаЬеІ; 

ІЫРоіеНеідЬЬ: ТЬаЬеІ; 

ІЫТорНеідЬЬ: ТЬаЬеІ; 

ІЫЬеЬЫлІісіЫі: ТЬаЬеІ; 

ЫрЬоѵтРоіеІлІісіЫі: ТЫрЬоѵт; 
зЬЬОК: ТЗрееЬВиЬЬоп; 

ЫрЬоѵтРоІеНеідііЬ: ТЫрЬоѵт; 

ЫрЬоѵтТорНеідЬЬ: ТЫрЬоѵт; 

ЫрЬотлтЬеЬЫлИЬЬЬ : ТЫрЬоѵт; 


ргосесіиге 

ЫрЬоѵтРо1еѴ\ІісіЫіС1іск (Зепсіег: 

ТО^есЬ; 

ВиЬЬоп: 

тго- 

ВВпТуре); 

ргосесіиге 

ргосесіиге 

зЬЬОКСІіск(Зепсіег: ТОЬ^есЬ); 
ЫрБоѵпРоіеНеідЬЬСІіск (Зепсіег: 

ТО^есЬ; 

ВиЬЬоп: 

тго- 

ВВпТуре); 

ргосесіиге 

ЫрЬоѵтТорНеідііЬСІіск (Зепсіег: 

ТО^есЬ; 

ВиЬЬоп: 

ТГО- 

ВВпТуре); 

ргосесіиге 

ЫрЬоілшЬеЬЫлІісіЬЬСІіск (Зепсіег: 

ТО^есЬ; 

ВиЬЬоп: 

ТГО- 


ВЬпТуре); 
ргіѵаЬе 

{ РгіѵаЬе ЬесІагаЬіопз } 


риЫіс 

{ РиЫіс ЬесІагаЬіопз } 
епЬ; 

ѵаг 





ЬгтИеиЕід: ТЬгтИеиЕід; 
ітріетепЬаЬіоп 
изез ИірропііпіЬ; 

{$К *.ВЕМ} 

//ИЗМЕНИТЬ ШИРИНУ ПОЛЯ 

ргосесіиге Т^гтЫеѵПГід.ирВоѵтРоІеМісШіСІіск (Зепсіег : ТО^есЬ; 

ВиЬЬоп: ТІШВЬпТуре) ; 

Ьедіп 

ІЫРоІеІлГісіЬЬ.. СарЬіоп : = ІпЬЬозЬг (ІірВошіРоІеЫісіЫі. РозіЬіоп) ; 
епсі; 

//ИЗМЕНИТЬ ВЫСОТУ ПОЛЯ 

ргосесіиге Т^гтЫеѵПГід.ирБоѵтРоІеНеідІі'ЬСІіск (Зепсіег : ТОЬ^есЬ; 

ВиЬЬоп: ТІГВВЬпТуре); 

Ьедіп 

ІЫРоІеНеідЬЬ. СарЬіоп : = ІпЬЬозЬг (ВрВоѵтРоІеНеідЪЬ. РозіЬіоп) ; 
епсі; 

//ИЗМЕНИТЬ ВЫСОТУ ВЕРХНЕГО ЧИСЛОВОГО ПОЛЯ 

ргосесіиге Т^гтЫеѵПГід.ирБоѵтТорНеідІі'ЬСІіск (Зепсіег : ТО^есЬ; 

ВиЬЬоп: ТИВВЬпТуре) ; 

Ьедіп 

ІЫТорНеідЬЬ . СарЬіоп : = іпЬЬозЬг (ВрВоѵтТорНеідЬЬ . РозіЬіоп) ; 
епсі; 

//ИЗМЕНИТЬ ШИРИНУ ЛЕВОГО ЧИСЛОВОГО ПОЛЯ 

ргосесіиге Т^гшЫеѵЕід.ирВоѵпЬе^ЬМісі'ЫіСІіск (Зепсіег : ТО^есЬ; 

ВиЬЬоп: ТИВВЬпТуре); 

Ьедіп 

ІЫЬеЬЫлІісіЬЬ. СарЬіоп : = ІпЬЬозЬг (ОрВоѵтЬеЬЬИісіЬЬ. РозіЬіоп) ; 
епсі; 

//УСТАНОВИТЬ НОВЫЕ РАЗМЕРЫ ПОЛЕЙ 

ргосесіиге Т^гшЫеѵЕід. зЬЬОКСІіск (Зепсіег : ТО^есЬ); 

Ьедіп 

ИірропЫпіЬ . РОЬЕ_Ѵ\ГІВТН: = ЫрВоѵтРоІеІлГісіЫі. РозіЬіоп; 

ЫірропТіпіЬ . РОЬЕ_НЕІСНТ : = ЧрВоѵтРоІеНеідЬЬ . РозіЬіоп; 

ИірропИпіЬ.ТОР_РОЬЕ_НЕІСНТ:= ВрВоѵтТорНеідЬЬ.РозіЬіоп; 

ИірропЫпіЬ . ЪЕЕТ_РОЬЕ_Ѵ\ГІВТН: = ВрВоипЪеЬЫлГісіЫі. РозіЬіоп; 

Ьогті.Ргераге(РОЬЕ_ЫІВТН, Р0ЬЕ_НЕІ6НТ, ТОР_РОЪЕ_НЕІСНТ, 

ЪЕЕТ_РОЪЕ_Ѵ\ГІВТН) ; 

Сіозе; 

епсі; 

епсі. 


Вызываться эта форма вместе с «причиндалами» будет при нажатии на 
кнопку зЪШем/Рід-. 

//ИЗМЕНИТЬ РАЗМЕРЫ ПОЛЕЙ 

ргосесіиге ТЕогшІ. зЬЬЫеѵЕідСІіск (Зепсіег : ТОЬ^есЬ); 

Ьедіп 







ЕгтИеиЕід. ІЫРоІеЭДісі'ЬЪ.. СарЫоп : = л-пЬЕозЕг (РОЬЕ_Ѵ\ГІВТН) ; 
ЕгтЫеѵЕід. ІЫРоІеНеідЬЬ . СарЬіоп : = іпЬЬозЬг (РОЬЕ_НЕІСНТ) ; 
ЕгтЫемЕід. ІЫЬеЕЕИісіЕІі. СарЕіоп : = іпЕЕозЕг (ЬЕЕТ_Р0ЬЕ_1лІІ0ТН) ; 
ЕгтЫеѵЕід.ІЫТорНеідЬЬ.СарЬіоп:= іпЬЬозЬг(ТОР_РОЬЕ_НЕІСНТ); 
ЕгтИеиЕід. ЦрВоѵтРоІеДОісТЬЪ.. РозіЕіоп : = РОЬЕ_Ѵ\ГІВТН; 

ЕгтЫеѵЕід. ЦрВоѵтРоІеІлІісіЫі. Мах : = МАХ_Р0ЬЕ_Ѵ\7ІВТН; 

ЕгтЫеѵЕід. ЦрВоѵтРоІеНеідЫ: . РозіЬіоп : = РОЬЕ_НЕІСНТ; 

ЕгтИеиЕід. ОрБовдпРоІеНеідІі'Ь .Мах : = МАХ_РОЬЕ_НЕІСНТ; 

ЕгтЫеѵЕід . 0рВоѵтЬе1:Ь1л7ісіЬ1і. РозіЬіоп : = ЬЕЕТ_Р0ЬЕ_1л7ІВТН; 
ЕгтИеиЕід. ЦрВоѵтЕеЕРНісіРП. Мах : = МАХ_СЕШШМ; 

ЕгтИеиЕід.ЦрВоѵтТорНеідПІ:.РозіЕіоп:= ТОР_РОЬЕ_НЕІСНТ; 
ЕгтЫеѵЕід. ОрОоѵтТорНеідІіЬ . Мах : = МАХ_СЕЬЬЕПЖ; 

ЕгтИеиЕід. зПоѵяпосіаІ; 
епсі; 


Упомяните добрым словом в Шрропііпіі: новый модуль: 


ітрІетепЕа'Ьіоп 

изез ЫеѵГідОпіР; 


Впрочем, если вы забудете об этом, ТигЬо ОеІрЬі напомнит вам о ваших 
обязанностях. 

Последние нововведения позволят вам запросто изменять размеры полей, 
как вашей душе будет угодно. Но нам предстоит ещё научиться вводить 
числа в числовые поля. Есть несколько способов для этого. Мы постараем¬ 
ся сделать этот процесс удобнее - для себя ведь делаем! 


Каждому сверчку по шестку, или Нумеруем клетки 

Входит и выходит - 
замечательно выходит. 

Каламбур Винни-Пуха 

Отметим клетку, в которую будут вводиться числа, красным цветом. Крас¬ 
ный квадратик можно перемещать точно так же, как и обычный курсор, но 
при переходе с одной клетки на другую нам придётся самим восстанавли¬ 
вать содержимое «покинутой» им клетки. Чтобы этот «указатель» не ме¬ 
шал нам при разгадывании задачи (ведь вводить числа нам будет неза¬ 
чем), проверяем, нажата ли кнопка яЬШгаѵѵ. Если нажата, то указатель 
убираем. 


//ПЕРЕМЕЩАТЬ ПОЗИЦИЮ ВВОДА В ВЕРХНЕМ ЧИСЛОВОМ ПОЛЕ 








ргосесіиге ТРогтІ. сідСоІзЫишМоизеМоѵе (ЗепЬег : ТОЬ^есЬ; ЗЬіЬЬ: 
ТЗЬіЬЬЗЬаЬе; X, 

У: ІпЬедег) ; 

ѵаг АСоІ, АКои: ІпЬедег; 
г: ТКЕСТ; 

ЬехЬ: зЬгіпд; 

Ьедіп 

//АСоІ, АКои <-- клетка с курсором 
сідСоІзИит.МоизеТоСеІІ (х, у, АСоІ, АКои) ; 

//если курсор переместился на другую клетку - 

іЬ (АСоІОсеІІМоизеТор. х) ог (АКоѵК>се1ІМоизеТор. у) Ыіеп 

Ьедіп 

//установить фокус ввода на верхнем поле: 
сідСоІзЫит. ЗеЬЕосиз; 

//перерисовать предыдущую клетку с курсором: 

г:= ЬдСоІзИит.СеІІКесЬ(сеІІМоизеТор.х, сеІІМоизеТор.у); 

сідСоІзИитВгаиСеІІ (зеІЬ, сеІІМоизеТор.х, сеІІМоизеТор.у. К, 

[ ]) ; 

//выделить красным цветом текущую клетку: 

ІЬ поЬ зЬЬОгаи.Ооѵт ЬЬеп Ьедіп 

г:= сідСоІзИит. СеІІКесЬ (АСоІ, АКои); 

ІпЫаЬеКесЬ (г, -1,-1) ; 

сідСоІзИит.Сапѵаз.ВгизЬ.Со1ог:= КОВ (255,0,0); 
сідСоІзИит. Сапѵаз . ЕіІІКесЬ (К) ; 

//восстановить число в клетке: 

ЬехЬ:= тазСоІзИит[АСоІ, АКои] . зИит; 
иіЬЬ. К, сідСоІзИит. Сапѵаз сіо 
ЬехЬгесЬ (К, ІеЬЫ-(гідЬЬ-ІеЬЬ-ЬехЬиісіЫі (ЬехЬ) ) сііѵ 2, 

Ьор+(ЬоЬЬот-Ьор-ЬехЬЬеідЬЬ (ЬехЬ) ) сііѵ 2, ЬехЬ); 

епсі; 

епсі; 

//новая позиция ввода: 
сеІІМоизеТор.х:= АСоІ; 
сеІІМоизеТор.у:= АКои; 
епсі; // сідСоІзЫитМоизеМоѵе 

//ПЕРЕМЕЩАТЬ ПОЗИЦИЮ ВВОДА В ЛЕВОМ ЧИСЛОВОМ ПОЛЕ 

ргосесіиге ТРогтІ . сідКоѵзІІшпМоизеМоѵе (Зепсіег : ТО^есЬ; ЗЬіЬЬ: 
ТЗЬіЬЬЗЬаЬе; X, 

У: ІпЬедег); 

ѵаг АСоІ, АКои: ІпЬедег; 
г: ТКЕСТ; 

ЬехЬ: зЬгіпд; 

Ьедіп 

//АСоІ, АКои <-- клетка с курсором 
ЬдКоизИит .МоизеТоСеІІ(х,у,АСоІ, АКои); 

ІЬ (АСоІОсеІІМоизеЬеЬЬ. х) ог (АКоиОсеІІМоизеЬеЬЬ. у) Ыіеп 
Ьедіп 

//установить фокус на левом поле: 

ЬдКоизИит. ЗеЬЕосиз; 

//перерисовать предыдущую клетку с курсором: 

г:= ЬдКоизИит. СеІІКесЬ(сеІІМоизеЬеЬЬ.х, сеІІМоизеЬеЬЬ.у); 




ЬдКоизИитОгаиСеИ (зеіі, сеІІМоизеЪеіі. х, сеІІМоизеЪеіі. у. К, 

[]); 

//выделить красным цветом текущую клетку: 
іі поі зЪіВгам.Боші іііеп Ьедіп 

г:= ЬдКоизЪГит. СеІІКесі (АСоІ, АКом) ; 

ІпііаіеКесі (г, -1, -1) ; 

ЬдКомзИит. Сапѵаз . ВгизЬ. Соіог : = КОВ (255,0,0); 

ЬдКомзИит. Сапѵаз . РШКесі (К) ; 
іехі:= тазКоѵзИит[АСоІ, АКоѵ] . зИит; 
мііЪ. К, ЬдКоизЪГит. Сапѵаз сіо 
іехігесі (К, 1еіі+(підЪі-Іеіі-іехіиісІіІі (іехі) ) сііѵ 2, 

іор+(Ьоііот-іор-іехіііеідЪі (іехі) ) сііѵ 2, іехі); 

епсі; 

епсі; 

сеІІМоизеЪеіі.х:= АСоІ; 
сеІІМоизеЪеіі.у:= АКом; 
епсі; // ЬдКоѵзЪІитМоигеМоѵе 


Запустите программу и погуляйте с курсором по числовым полям - крас¬ 
ная клетка, как верный пёс, всюду будет следовать за вами (Рис. 3.29). 
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Рис. 3.29. Красная метка 

Немного отдохнув, опять беритесь за дело. Для ввода чисел мы напишем 
процедуру, обрабатывающую событие ОпКеуРгезз, возникающее при 
нажатии клавиши на клавиатуре. Прежде всего, проверим, не нажата ли 
кнопка БЪФгаѵѵ, чтобы случайно не изменить числа при решении задачи. 
Затем нам нужно убедиться, что нажата именно цифровая клавиша, иначе 
возникнет ошибка при обработке введённых символов. Ну и последнее. 
Для подстраховки от неожиданных судорог и тиков мы ограничим длину 
вводимого числа двумя цифрами. Если всё в порядке, сохраняем число в 
массиве. 


//ВВЕСТИ ЧИСЛО В ТЕКУЩУЮ КЛЕТКУ 

ргосесіиге ТРостпІ . ЦдСоЪзИитКеуРгезз (Зепсіег : ТО^есі; ѵаг Кеу: 

СЪаг) ; 

ѵаг 

з, іехі: зігіпд; 
гесі: ТКесі; 

Ьедіп 

іі зЪіЪгам.Ъоѵт іііеп ехіі; 
іі поі(кеу іп[ 1 0'..'9']) Ыіеп ехіі; 
іехі:= Кеу; 















































//если что-то уже есть в этой клетке - 

з:= тазСоІзИит[сеІІМоизеТор .х, сеІІМоизеТор .у].зИит; 

//числа могут быть только однозначные и двузначные: 
іб ІепдбЬ (з)>=2 бЬеп ехіб; 

//записать число в клетку: 

тазСоІзИит [сеІІМоизеТор . х, сеІІМоизеТор .у].зИит:= з+Кеу; 
гесб:= сідСоІзИит. СеІІРесб (сеІІМоизеТор . х, сеІІМоизеТор . у) ; 
ЬдСобзЪГитЬгаиСеП (зеіб, сеІІМоизеТор.х, сеІІМоизеТор.у, Ресб, 

[]) ; 

епсі; // сідСоІзЫитКеуРгезз 

//ВВЕСТИ ЧИСЛО В ЯЧЕЙКУ ЛЕВОГО ЧИСЛОВОГО ПОЛЯ 

ргосесіиге ТРогтІ. сідКоѵзНитКеуРгезз (Зепсіег : ТОЬ^есб; ѵаг Кеу: 

СЬаг); 
ѵаг 

з, бехб: збгіпд; 
гесб: ТРесб; 

Ьедіп 

іб зЬбЬгаи.Ьоѵт бЬеп ехіб; 
іб поб(кеу іп['0'..'9']) бЬеп ехіб; 

66x6:= Кеу; 

з:= тазРоизЪГит [ сеІІМоизеЪебб . х, сеІІМоизеЪебб . у] . зЪГит; 
іб ІепдбЬ(з)>=2 бЬеп ехіб; 

тазРоизЪГит [ сеІІМоизеЪебб . х, сеІІМоизеЪебб . у] . збіит: = з+Кеу; 
гес6:= сідРоизбІит. СеІІРесб (сеІІМоизеЪебб . х, сеІІМоизеЪебб.у); 
ЬдРонзЫитБганСеИ (зеіб, сеІІМоизеЪебб . х, сеІІМоизеЪебб . у, Ресб, 
[ ]) ; 

епсі; // ЬдРоизЫитКеуРгезз 


А что делать, если вы запутались в цифрах? - Не мудрствуя лукаво, мы 
просто сотрём всё, что было в клетке, дважды щёлкнув на ней. Опять же 
для подстраховки проверяем, не решаем ли мы уже задачу, чтобы не 
усложнять себе и без того непростую жизнь. 


//ОЧИСТИТЬ ТЕКУЩУЮ КЛЕТКУ 

ргосесіиге ТРогтІ.сідСоІгИипЮЫСІіск (Зепсіег : ТО^есб); 
ѵаг Кесб: ТРЕСТ; 

Ьедіп 

іб зЬбВгаи.Ооип бЬеп ехіб; 

тазСоІзЪГит [ сеІІМоизеТор . х, сеІІМоизеТор.у].зИит:=''; 
гесб:= сідСоізИит.СеІІРесб (сеІІМоизеТор.х, сеІІМоизеТор.у) ; 
сідСоІзИитГгаиСеІІ (зеіб, сеІІМоизеТор . х, сеІІМоизеТор . у, Кесб, 
[ ]) ; 
епсі; 

//ОЧИСТИТЬ ТЕКУЩУЮ КЛЕТКУ 

ргосесіиге ТРогтІ. сідКоѵггЫитОЫСІіск (Зепсіег : ТО^есб); 
ѵаг Кесб: ТРЕСТ; 

Ьедіп 

іб зЬбВгаи.Ооип бЪеп ехіб; 

шазРоизИиш[сеІІМоизеЪебб.х, сеІІМоизеЪебб.у].зЫиш:=''; 






гесЬ:= сідКоизЫит. СеІІКесЬ (сеІІМоизеЪе^І: . х, сеІІМоизеЪе^І: . у) ; 
сідКоѵзЫитВгаѵСеІІ ( зеі^, се11МоизеЪе1:1і. х, се11МоизеЪе1:1і. у, Кесѣ, 
[ ]) ; 
епсі; 


Для проверки качества своей работы возьмём да и введём третью задачу 
из газеты Поле чудес, №3 за 1996 год. Это один из первых японских кросс¬ 
вордов, появившихся у нас. Впрочем, вы можете взять и любой другой. 

Запустите программу, нажмите самую первую кнопку ( зЪШеѵѵРід ) и в по¬ 
явившемся окне установите размеры всех трёх полей. Для нашего примера 
цифирь должна получиться такая (Рис. 3.30]. 



Рис. 3.30. Устнаваливаем размеры сеток 


Нажав кнопку ОК, вы с удовольствием убедитесь, что игровое и числовые 
поля ужались и разжались как им велено. Теперь подводите красную мет¬ 
ку к нужным клеткам (как сказал бы киношный Портос, я вас умоляю, не 
обижайте мышку, не кликайте ею всуе] и нажимайте на клавиатуре циф¬ 
ровые клавиши. Числа тут же появятся в клетках. 

Как мы уже договорились, числа должны записываться в числовых полях 
от верхнего и левого краёв. А вот в газетах они, напротив, чаще записаны от 
нижнего и правого. Надо сказать, ввод чисел - удовольствие не из прият¬ 
ных, и вряд ли стоит усугублять его ещё и перетаскиванием чисел из од¬ 
них клеток в другие. Поэтому мы сделаем для себя послабление и заставим 
программу гонять числа по полям, сами же будем спокойно вписывать 
числа в клетки, не придерживаясь твёрдых правил. Важно только сохра¬ 
нить последовательность чисел в рядах, а пустые клетки вы можете рас¬ 
ставлять как угодно. Если у вас под рукой не оказалось первоисточника, то 
поверьте, что в итоге должна получиться такая «таблица» (Рис. 3.31]. 













ОеІрНі в примерах, играх и программах 



Рис. 3.31. Все числа - в клетках! 


Этот способ ввода чисел, пожалуй, самый наглядный - легко сравнить за¬ 
дачу в газете с её «электронной копией», найти и исправить ошибки. Если 
же вам претит катать мышку по коврику, то вы можете набрать числа в 
обыкновенном текстовом редакторе, хотя бы в Блокноте или ѴѴогдРад'е, 
которые входят в комплект операционной системы ѴѴіпдом/з. 

Возможны два варианта создания текстовых файлов с условиями задачи. 
Первый - числа в строке должны отделяться друг от друга, по крайней ме¬ 
ре, одним пробелом. Второй - числа пишутся слитно. 

Рассмотрим сначала «пробельный» вариант. Формат файла такой. В первой 
строке - два числа: первое показывает ширину игрового поля, второе - его 
высоту. Во второй строке также два числа: первое задаёт высоту верхнего 
числового поля, второе - ширину левого числового поля. Затем записыва¬ 
ются данные для верхнего числового поля. Каждая строка содержит числа 
из одной колонки. После чего аналогично записываются данные для лево¬ 
го числового поля, но в строках перечисляются числа из горизонтальных 
рядов. Например, информация о таком кроссворде (Рис. 3.32] 



Рис. 3.32. «Образцовый» рисунок! 
























































в текстовом исполнении будет выглядеть так: 

5 4 
2 3 
1 1 
1 
2 

1 1 
1 1 
111 
2 

1 1 
1 1 

Закончив ввод чисел, запишите файл как обычный текст без форматиро¬ 
вания, а затем замените его расширение ТХТ другим - ]РИ. Конечно, можно 
оставить и ТХТ, но тогда в файл придётся вводить дополнительную ин¬ 
формацию, чтобы отличить его при загрузке от обычного текста, иначе 
такие попытки будут приводить к ошибкам. 

Чтобы не нажимать беспрестанно на клавишу пробел, вы можете восполь¬ 
зоваться другим способом ввода задач с клавиатуры. Формат файла в этом 
случае несколько иной (он используется в программе Гантверга и Самсо¬ 
нова Зоіиіег, так что все претензии адресуйте им). Первая строка хранит 
высоту и ширину игрового поля. Информация о размерах числовых полей 
умалчивается. В следующих строках записаны числа - сначала из левого 
числового поля, затем из верхнего. Последовательность чисел в строках та 
же, что и раньше, но набираются они без пробелов: 

45 

111 

2 

11 

11 

11 

1 

2 

11 

11 

Не забудьте изменить расширение файла на ]СР. 


Когда все числа в кроссворде меньше 10, этот формат, безусловно, удобнее 
для ввода задач. А вот большие числа создают определённые трудности, 
так как число 10, например, при слитной записи будет трактоваться как 
два числа - 1 и 0. Так что придётся каждое число обозначать своим знач- 


ком. В принципе, это делается просто: за цифрой 9 в таблице символов 
следует двоеточие - которое и будет заменять число 10. Следующие чис¬ 
ла «шифруются» так: 

11 - ; 

12 - < 

13 - = 

14 - > 

15 - ? 

16 - @ 

17 - А 

18 - В 
19-0 
20 - Е 


И так далее. За всё надо платить - убрав пробелы, мы получили множество 
значков, в которых легко запутаться. Именно поэтому и был разработан 
первый формат текстового файла, который больше не используется ни в 
каких других программах, кроме нашей. Но вы можете придумать и что- 
нибудь своё - кто вам запретит! 


Мотаем на ус, или Наш задачник 

Наливай! 

Из нашего 
Вываливай! 

Тоже 

Теперь - тем или иным способом - вы сможете перенести задачу в компь¬ 
ютер. Встречаются же японские кроссворды почти в каждой головоломной 
газете. Поле чудес, Магазин кроссвордов, Загадочная газета, Фаворит, Сме¬ 
кай!, Японский лабиринт и многие другие редко обходятся без них. Имеют¬ 
ся издания «с узкой специализацией», в которых ничего другого и нет. 
Например, газеты Фудзияма, Японские кроссворды, Японский сканворд. Но 
вы можете воспользоваться и готовыми задачами, которые прилагаются к 
уже упомянутым программам для самостоятельного решения. Причём 
большинство из них можно загрузить в нашу программу и решать непо¬ 
средственно в ней. Правда, для этого нам сначала придётся создать необ¬ 
ходимые процедуры для обработки «нестандартных» файлов. Так как это 
не относится непосредственно к нашей программе, то мы не будем по¬ 
дробно останавливаться на всех тонкостях чуждых нам форматов. При же¬ 
лании каждому из вас по силам самостоятельно в этом разобраться (а это 


будет и небесполезно!). Пока же просто дважды щёлкните по кнопке 
БЪсЬоасІРід и заполните заготовку процедуры следующим кодом: 


//ЗАГРУЗИТЬ НОВУЮ ФИГУРУ 

ргосесіиге ТРогшІ . зЪЫюасіРідСІіск (ЗепЬег : ТО^есЕ) ; 
ѵаг 

з: зЕгіпд; 

Е: ТехЕЕііе; 

зз: аггау [1. .МАХ_РОЬЕ_Ѵ\МОТН + МАХ_РОЬЕ_НЕІСНТ] оЕ зЕгіпд; 
пЬіпез: іпЕедег; //счётчик считанных строк фигуры 
шахЬеп: іпЕедег; 
і^:іпЕедег; 

ЕідСотш: Ьооіеап; //= ТВИЕ, если считываем комментарий к фигуре 
м,Н: іпЕедег; 


//ЗАГРУЗИТЬ ФАЙЛ ИС {файл картинки программы Сип' з Иарапезе СгоззшогЬ) 

ргосесіиге ЪоасЫсРіІе; 

ѵаг 

Е: Еііе оЕ ВуЕе; 
ѵг,Ъ.: іпЕедег; 

Ь: ЬуЕе; 
і : іпЕедег; 

Ьедіп 

{$і-} 

АззідпЕіІе(Е, ИашеЕід); 

КезеЕ(Е); 

{$і+} 

ІЕ ІОРезиІЕОО ЕЬеп Ьедіп {ошибка при загрузке файла} 

арріісаЕіоп .МеззадеВох ('Такой фигуры нет !',ИАМЕ_РКОС, МВ_ОК); 
ехіЕ 
епсі; 

//вывести в заголовке формы имя загруженного файла: 

Еогті.сарЕіоп:= ИАМЕ_РКОС + ' [' + ИатеЕід + ']'; 

//начинаем считывать файл 
//считываем размеры поля 
//ширина поля - 4-ый байт: 

Беек (Е, 4); Кеас1(Е, Ь) ; те: = Ь; 

//высота поля - б-ой байт: 

5еек(Е, б); Кеас1(Е, Ь) ; Ь: = Ь; 

//проверить размеры фигуры: 

ІЕ (Н > МАХ_РОЬЕ_НЕIСНТ) ог Ы > МАХ_РОЬЕ_Ѵ\МОТН) ЕНеп Ьедіп 

арріісаЕіоп.МеззадеВох( 'Слишком большая фигура!',ИАМЕ_РВ.ОС, МВ_ОК); 
СіозеЕііе(Е); ехіЕ 
епсі; 

РОЬЕ_Ѵ\МОТН : = ѵг; РОЬЕ_НЕІСНТ : = Ь; 

//проверяем длину файла: 
і:= ЕііеЗіге(Е); 

^:= 8 + РОЬЕ_НЕІСНТ * РОЬЕ_Ѵ\МОТН; 

ІЕ і < ^ ЕЬеп Ьедіп 

арріісаЕіоп.МеззадеВох(' Неверный размер файла!' , ИАМЕ_РВ.ОС, МВ_ОК); 
СіозеЕііе(Е); ехіЕ 
епсі; 

// загружаем данные для поля: 

Еог ]:= 0 Ео Р0ЬЕ_НЕІСНТ-1 сіо 

Еог і:= 0 Ео Р0ЬЕ_Ѵ\М0ТН-1 сіо Ьедіп 

Зеек (Е, РОЬЕ_!/\ГІС>ТН*^ +і + 8); Веас1(Е, Ь) ; 

ІЕ Ь=0 ЕНеп тазРоІе [і, : ] := ЖПУМАГНІТЕ 




еізе шазРоІе [і, : ] := ШМ_ВЪАСК; 
епсі; 

//закрыть файл - всё загружено: 

СІозеЕіІе(Е); 

//оцифровать рисунок: 
зЬРИитЬегзСііск(ЗеІР); 

//очистить поле: 

Рог ]:= 0 іо Р0ЬЕ_НЕІСНТ-1 сіо 

Рог і:= 0 Ро РОЬЕ_Ѵ\[ІБТН-1 сіо шазРоІе [і, Л : = ШМ_0КАУ; 

Ргераге (РОЬЕ_Ѵ\МОТН, РОЬЕ_НЕІСНТ, ТОР_РОЬЕ_НЕІСНТ, ЪЕЕТ_РОЬЕ_Ѵ\ЛБТЫ) ; 
епсі; //ЬоасІЗсЕіІе 

//ЗАГРУЗИТЬ ФАЙЛ ИШ 

ргосесіиге ЬоасМсѵгЕІІе; 

ѵаг 

Е: Рііе оР ВуРе; 

г п : іпРедег; 
м,к: іпРедег; 

Ь, ргесі: ЬуРе; 

Ьі, ргесіі: іпРедег; 
оРР: іпРедег; 

пд: іпРедег; //число групп в ряду 
р: ТРоіе; 

Ьедіп 

{$і-} 

АззідпЕііе(Е, ИашеЕід); 

КезеР(Е); 
і$і+} 

ІР ІОРезиІРОО Ркеп Ьедіп {ошибка при загрузке файла} 

арріісаРіоп .МеззадеВох ('Такой фигуры нет ! ' , ИАМЕ_РКОС, МВ_ОК) ; 
ехір 
епсі; 

//вывести в заголовке формы имя загруженного файла: 

Рогті.сарРіоп:= ИАМЕ_РКОС + ' [' + ИатеЕід + ']'; 

//начинаем считывать файл 
//считываем размеры поля 
//ширина поля - первый байт: 

Зеек(Е, 0); Кеасі(Е, Ь) ; ш: = Ь; 

//высота поля - второй байт: 

Зеек(Е, 1); Кеасі(Е, Ь) ; Ь: = Ь; 

//проверить размеры фигуры: 

ІР (к > МАХ_РОЬЕ_НЕIСНТ) ог (те > МАХ_РОЬЕ_1АГІВТН) РЬеп Ьедіп 

арріісаРіоп.МеззадеВох( 'Слишком большая фигура!',ИАМЕ_РВОС, МВ_ОК); 
СІозеЕіІе(Е); ехір 
епсі; 

РОЬЕ_Ѵ\М ОТН : = те; РОЬЕ_НЕІСНТ : = Ь; 

//проверяем длину файла: 
і:= ЕііеЗіге(Р); 

^ : = 2 + РОЬЕ_НЕІСНТ * РОЬЕ_Ѵ\МОТН; 

ІР і < ^ РЬеп Ьедіп 

арріісаРіоп.МеззадеВох(' Неверный размер файла!',ИАМЕ_РКОС Л МВ_ОК); 
СІозеЕіІе(Е); ехір 
епсі; 

//считываем данные для верхнего числового поля: 
оРР:= 2; 

к:=0; //высота верхнего числового поля 

Рог і := 0 Ро РОЬЕ ДОЮТН -1 сіо //- по длине поля 




Ьедіп 

пд:= 0; //число групп в ряду 
п:= 0; //- длина группы 

ргес!:= 0; //- предыдущий байт 

//в каждом ряду должно быть хотя бы одно число: 
шазСоІзЫигп [і, 0] . зЫиш:= 1 0 1 ; 

//для каждого столбца: 

Гог ^ := 0 Го РОЬЕ_НЕІСНТ -1 сіо 

Ьедіп 

Беек(Е, РОЬЕ_НЕІСНТ*і+ ^ + оРР) ; 

//считать очередной байт: 

КеаЬ (Е, Ь) ; 

//сохранить его: 

Р [і, :]:= Ь; 

ІР Ь=2 РЬеп Ьедіп //- чёрная клетка 

ІР ргес1<>2 РЬеп Ьедіп //- предыдущая клетка не чёрная --> 

//записать группу: 

тазСоІзЕІит [ і , пд-1 ] . зііит: = іпРРозРг (п) ; 

//начинается новая группа: 
іпс (пд); 
п : = 0 ; 
епсі; 

//увеличить длину группы: 
іпс (п); 
епсі; 

ргес1: = Ь; 
епсі; 

тазСо1зЕ[ит [ і , пд-1 ] . зЫшп: = ІпРРозРг (п); 
тазСоІзЕІит [і, -1] .Ыит:= пд; 

ІР пд> Ь. РЬеп Ь:= пд; 
епсі; 

//закрыть файл - всё загружено: 

СіозеЕііе (Е); 

//формируем данные для левого числового поля: 
м:=0; //ширина левого числового поля 

Рог ^ := 0 Ро РОЬЕ_НЕІСНТ -1 сіо //- по всем строкам поля 

Ьедіп 

пд:= 0; //число групп в ряду 
п:= 0; //- длина группы 

ргес!і: = 0; //- предыдущий байт 

//в каждом ряду должно быть хотя бы одно число: 
тазРошзРІит [ 0, і ] . зііит : = ' 0 ' ; 

Рог і := 0 Ро РОЬЕ_Ѵ\ЛОТН -1 сіо //- по длине строки 
Ьедіп 

//считать очередное число: 

ьі := р [і, :]; 

ІР Ьі=2 РЬеп Ьедіп //- чёрная клетка 

ІР ргесіі<>2 РЬеп Ьедіп //- предыдущая клетка не чёрная --> 
//записать группу: 

тазКомзЫит[пд-1,^].зЫит:= іпРРозРг (п); 

//начинается новая группа: 
іпс (пд); 
п : — 0 ; 
епсі; 

//увеличить длину группы: 
іпс (п); 
епсі; 




ргесіі:= Ьі; 
епсі; // і 

тазКомзИшп [пд-1 , ^ ] . зНит: = іпРРозРг(п); 
тазКомзИит [-1Л].Нит:= пд; 

ІР пд> м РЬеп м: = пд; 
епсі; / / д 

//проверить число групп: 

ІР (мг > МАХ_СЕЬЬНиМ) ог (Ь. > МАХ_СЕЬЬШМ) РЬеп Ьедіп 

арріісаРіоп .МеззадеВох (' Слишком много групп !’ , НАМЕ_РКОС, МВ_ОК); 
СІозеЕіІе(Е); ехір 
епсі; 

ТОР_РОЬЕ_НЕІСНТ:= А; 

ЬЕЕТ_РОЬЕ_ѴІІВТН: = ѵг; 

//вывести картинку на игровое поле: 

Рог ]:= 0 іо Р0ЪЕ_НЕІСНТ-1 сіо 
Рог і: = 0 Ро Р0ЪЕ_Ш0ТН-1 сіо 
сазе р[і,д] оР 

2: тазРоІе [і, : ] := НШ_ВЬАСК; 
еізе тазРоІе [і, Л := НШ_ѴШІТЕ; 
епсі; 

//вывести поля заданных размеров с числами: 

Ргераге (РОЬЕ_Ѵ\ПОТН, РОЬЕ_НЕІСНТ, ТОР_РОЬЕ_НЕІСНТ, ЬЕЕТ_РОЬЕ_ѴіІВТН) ; 
епсі;// ЪоасІЗсмЕіІе 


//ЗАГРУЗИТЕ ФАЙЛ ЗРИ 

ргосесіиге ЪоасіЗрпРіІе; 

ѵаг 

Е: ТехРЕіІе; 
і:іпРедег; 
м,Ь: іпРедег; 

пд: іпРедег; //число групп в ряду 
з: зРгіпд; 

роз: іпРедег; //позиция в строке 

зНигп: зРгіпд; //число 

//получить число из заданной строки 

РипсРіоп СеРНитЬег(з: зРгіпд; ѵаг роз: іпРедег; ѵаг з2: зРгіпд) : 
Ьооіеап; 

//= ЕАЬЗЕ, если строка ещё не кончилась 
Ьедіп 

з2:= ' ' ; 


ІР роз> ЬепдРЬ(з) РЬеп В.ези1Р:= ТРНЕ 
ѵЛіііе (роз<= ЬепдРЬ(з)) апсі (з[роз]<> 
з2:= з2 + з[роз]; іпс(роз) 
епсі; 

//пропустить пробелы: 

ѵЛііІе (роз< ЬепдРЬ(з)) апсі (з[роз]= ’ 
ІР (роз= ЬепдРЬ(з)) апсі (з[роз]= ' ') 

епсі; 

Ьедіп 

{$і-} 

АззідпЕііе(Е, НатеЕід); 

КезеР(Е); 

{$і+} 

ІР ІОВезиІРОО РЬеп Ьедіп {ошибка при 
арріісаРіоп .МеззадеВох ('Такой фигуры 
ехір 
епсі; 


еізе Р.ези1Р:= ЕАЪЗЕ; 
' ' ) сіо Ьедіп 


’ ) сіо іпс (роз) ; 

РЬеп Рези1Р:= ТВИЕ; 


загрузке файла} 

нет! ЛИАМЕ РКОС, МВ ОК) ; 




//вывести в заголовке формы имя загруженного файла: 

Рогті . сарРіоп : = ЫАМЕ_РКОС + ' [' + ЫатеЕід + ! ] ! ; 

//начинаем считывать файл 
//считываем размеры поля 
//ширина поля - первое число 
//высота поля - второе: 

Кеасііп (Е, 5) ; 
роз:= 1; 

СеЕЫитЬег(5, роз, зііит) ; ѵг:= зРгРоіпР (зЕГит) ; 

СеРЫитЬег(5, роз, зЫит) ; Ь: = зРгРоіпР ( зі[ит) ; 

//проверить размеры фигуры: 

ІР (Ъ. > МАХ_РОЬЕ_НЕIСНТ) ог (те > МАХ_Р0ЪЕ_ЭД10ТН) РЬеп Ьедіп 

арріісаРіоп .МеззадеВох('Слишком большая фигура!',ЫАМЕ_РР.ОС, МВ_ОК); 
СІозеЕіІе (Е); 
ехір 
епб; 

РОЪЕ_^ЮТН:= те; РОЬЕ_НЕІСНТ : = А; 

//считываем размеры числовых полей 

//высота верхнего числового поля первое число, 

//ширина левого числового поля - второе: 

Кеасііп (Е, 5) ; 
роз:= 1; 

СеРЫшпЪег (5, роз, зЫит) ; Ь: = зРгРоіпР (зЕ[ит) ; 

СеРЕ[итЬег(5, роз, зЫит); те:= зРгРоіпР (зЕ[ит) ; 

//проверить число групп: 

ІР (те > МАХ_СЕЬЪШМ) ог (А > МАХ_СЕЪЪШМ) РЬеп Ьедіп 

арріісаРіоп .МеззадеВох('Слишком много групп!',ЫАМЕ_РКОС, МВ_ОК); 
СІозеЕіІе (Е); ехір 
епсі; 

Т0Р_Р0ЬЕ_НЕ1СНТ:= Ь; 

ЬЕЕТ_Р0ЬЕ_ЭД1ОТН : = те; 

//считываем данные для верхнего числового поля: 

Еог і:= 0 Ро РОЬЕ_ЭДІ ОТН-1 сіо Ьедіп 
ІР еоР(Р) РЬеп Ьедіп 

з:='Не хватает данных!'; 

арріісаРіоп .МеззадеВох(РСЬаг(з),ЫАМЕ_РКОС,МВ_ОК ); 
ехір 
епб; 

//считать строку из файла: 

Кеасііп (Е, 5) ; 

//выделить числа из строки: 
роз:= 1; пд:= -1; 

теЬііе СеРРІитЬег(5, роз, зііит) = ЕАЬЗЕ сіо Ьедіп 
іпс (пд); 

тазСоІзЫит[і, пд].зЖіт: = зііит; 
епб; 
епб; 

//считываем данные для левого числового поля: 

Еог і:= 0 Ро Р0ЬЕ_НЕІСНТ-1 сіо Ьедіп 
іР еоР(Р) РЬеп Ьедіп 

з:='Не хватает данных!'; 

арріісаРіоп .МеззадеВох (РСЬаг(з),ЫАМЕ_РКОС,МВ_ОК ); 
ехір 
епб; 

//считать строку из файла: 

Кеасііп (Е, 5) ; 

//выделить числа из строки: 




роз: = 1; пд:= -1; 

ѵЛіііе СеЬИшпЬег (5, роз, зИит) = ЕАЪЗЕ сіо Ьедіп 
іпс (пд); 

тазВошзЕІит [пд, і ]. зЕІит: = зЕІит; 
епсі; 
епсі; 

//закрыть файл - всё загружено: 

СІозеЕіІе (Е); 

//вывести поля заданных размеров с числами: 

Ргераге (РОЬЕ_Ѵ\МОТН,РОЬЕ_НЕІСНТ, Т0Р_Р0ЬЕ_НЕ1СНТ, ЬЕЕТ_РОЬЕ_ШВТН) ; 
епсі; // ЬоасІТрпЕіІе 

//ЗАГРУЗИТЬ ФАЙЛ СРС из программы ТрсЭДіп Матвея Ильяшенко 

ргосесіиге ЬоасМрсЕІІе; 

ѵаг 

Е: Гііе оГ ВуЬе; 
і, 3 ,п:іпЬедег; 
м,Ь: іпЬедег; 

Ь: ЬуЬе; 
оГГ: іпЬедег; 

ГипсЬіоп РеасШогсІ (іпсіех: ЬопдіпЬ): шогсі; 
ѵаг 

Ы, Ь2: ЬуЬе; 

Ьедіп 

//считать первый байт: 

5еек(Е, іпсіех); Кеас1(Е, Ы); 

//считать второй байт: 

5еек(Е, іпс1ех+1); Кеасі(Е, Ь2); 

//вычислить слово: 

В.ези1Ь: = 2 5 6*Ь2+Ы; 
епсі; 

Ьедіп 

//загрузить файл: 

{$і-} 

АззідпЕііе(Е, ИашеЕід); 

КезеЬ(Е); 

{$і+} 

іі ІОКезиІЬОО ЬЬеп Ьедіп {ошибка при загрузке файла} 

арріісаЬіоп .МеззадеВох ( 1 Такой фигуры нет ! ',ИАМЕ_РР.ОС, МВ_ОК); 
ехіЬ 
епсі; 

//вывести в заголовке формы имя загруженного файла: 

Гогті. сарЬіоп: = ИАМЕ_РВ.ОС + ’ [’ + ИатеЕід + ’]'; 

//начинаем считывать файл - 
// считываем размеры поля: 
ш: = КеасШогсІ (0) ; 

Ь : = КеасШогсІ (2 ) ; 

//проверить размеры фигуры: 

ІГ (Ь > МАХ_РОЬЕ_НЕIСНТ) ог Ы > МАХ_РОЬЕ_^ЮТН) ЬЬеп Ьедіп 

арріісаЬіоп .МеззадеВох (' Слишком большая фигура!',ИАМЕ_РРОС, МВ_ОК); 
СІозеЕіІе(Е); ехіЬ 
епсі; 

РОЬЕ_Ѵ\М ОТН : = ѵг; РОЬЕ_НЕІСНТ : = Ь; 

//считываем размеры числовых полей: 

Ъ.: = КеасШогсІ (4 ) ; 
м: = КеасШогсІ ( 6) ; 

//проверить число групп: 




іЕ ы > МАХ_СЕЬЪШМ) ог (Н > МАХ_СЕЬЪШМ) ЕЬеп Ьедіп 

арріісаЕіоп .МеззадеВох (' Слишком много групп !',ИАМЕ_РР.ОС, МВ_ОК); 
СІозеЕіІе(Е); ехіЕ 
епсі; 

ТОР_РОЬЕ_НЕІСНТ:= Ь; 

ЬЕЕТ_РОЬЕ_Ѵ\[ІБТН : = те; 

//проверяем длину файла: 
і:= ЕіІеЗіге(Е) ; 

^:= 8 + Р0ЬЕ_НЕІСНТ*ЬЕЕТ_Р0ЬЕ_ѴІІВТН + РОЬЕ_ШВТН* ТОР_РОЬЕ_НЕІСНТ; 

ІЕ і<>д ЕНеп Ьедіп 

аррІісаЕіоп .МеззадеВох (' Неверный размер файла!' , ИАМЕ_РР.ОС, МВ_ОК); 
СІозеЕіІе(Е); ехіЕ 
епсі; 

//считываем данные для левого числового поля: 
о Е Е : = 8; 

Еог ^ := 0 Ео РОЬЕ_НЕІСНТ -1 сіо //сверху 

Ьедіп 
п : = 0 ; 

//в каждом ряду должно быть хотя бы одно число: 
тазВотезРІит [ 0, ^ ] . зііит: = ' 0 ' ; 

Еог і := ЬЕЕТ_РОЬЕ_ШБТН - 1 ЬотепЕо 0 сіо //справа налево 
Ьедіп 

Беек (Е, РОЬЕ_НЕІСНТ*і+^+ о ЕЕ) ; 

Кеасі (Е, Ь) ; 

ІЕ ЬоО ЕНеп Ьедіп 

тазКотезИит [п ^□] . зИит := іпЕЕозЕг(Ь); 
іпс(п); 
епсі; 
епсі; 
епсі; 

//считываем данные для верхнего числового поля: 
оЕЕ: = ЬЕЕТ_РОЬЕ_ѴІІВТН * РОЬЕ_НЕІСНТ + 8; 

Еог і := 0 Ео РОЬЕ_!лЛБТН -1 сіо 
Ьедіп 
п : — 0 ; 

//в каждом ряду должно быть хотя бы одно число: 
тазСоізИит [ і , 0 ] . зИшп: = ' 0 ' ; 

Еог ^ := ТОР_РОЬЕ_НЕІСНТ - 1 ЬотепЕо 0 сіо //снизу вверх 

Ьедіп 

Беек (Е, РОЬЕ^ЮТН* :+ і+ о ЕЕ) ; 

Кеасі (Е, Ь) ; 

ІЕ ЬоО ЕНеп Ьедіп 

тазСоізРІит [ і , п] . зііит: = ІпЕЕозЕг (Ь) ; 
іпс (п); 
епсі; 
епсі; 
епсі; 

//закрыть файл - всё загружено: 

СІозеЕіІе(Е); 

//вывести поля заданных размеров с числами: 

Ргераге (РОЬЕ^ЮТН, РОЬЕ_НЕІСНТ, ТОР_РОЬЕ_НЕІСНТ, ЬЕЕТ_Р0ЬЕ_ЭД1 ЬТН) ; 
епсі; // ЪоаЬБрсЕіІе 

//ЗАГРУЗИТЬ ФАЙЛ ИСК из программы "Японский кроссворд 2000" 

//Егоркина И. В. 

ргосесіиге ЬоасМсгЕІІе; 

ѵаг 




Е: Еііе оЕ ВуЕе; 

, п : іпЕедег ; 
м,к: іпЕедег; 

Ь: ЬуЕе; 
оЕЕ: іпЕедег; 

Ьедіп 

//загрузить файл: 

{$і-} 

АззідпЕіІе(Е, ЫашеЕід); 

КезеЕ(Е); 

{$і+} 

ІЕ ІОКезиІЕОО Екеп Ьедіп //ошибка при загрузке файла 

аррІісаЕіоп .МеззадеВох ('Такой фигуры нет !',ЫАМЕ_РР.ОС, МВ_ОК); 
ехіЕ 
епсі; 

//вывести в заголовке формы имя загруженного файла: 

Еогті.сарЕіоп:= ЕАМЕ_РВ.ОС + ' [' + ЫатеЕід + 

//начинаем считывать файл - 
// считываем размеры поля: 

8еек(Е, 0); Кеас1(Е,Ь); ѵі: = Ъ; 

8еек(Е, 1); Кеас1(Е,Ь); к: = Ь; 

//проверить размеры фигуры: 

ІЕ (к > МАХ_РОЬЕ_НЕIСНТ) ог Ы > МАХ_РОЪЕ_^ЮТН) Екеп Ьедіп 

аррІісаЕіоп.МеззадеВох(' Слишком большая фигура!',ЫАМЕ_РВОС, МВ_ОК); 
СІозеЕііе(Е); ехіЕ 
епсі; 

РОЬЕ_Ѵ\МОТН : = ѵг; РОЬЕ_НЕІСНТ : = к; 

//считываем размеры числовых полей: 

8еек(Е, 2); Кеас1(Е,Ь); ѵг: = Ь; 

8еек(Е, 3); Кеас1(Е,Ь); к: = Ь; 

//проверить число групп: 

ІЕ (мг > МАХ_СЕЬЬШМ) ог (к > МАХ_СЕЬЬШМ) Екеп Ьедіп 

аррІісаЕіоп .МеззадеВох (' Слишком много групп !' , ЕАМЕ_РВ.ОС, МВ_ОК) ; 
СІозеЕііе(Е); ехіЕ 
епсі; 

ТОР_РОЬЕ_НЕІСНТ:= к; 

ЬЕЕТ_РОЪЕ_^ІВТН:= ѵг; 

//проверяем длину файла: 
і:= Еііе8іге(Е); 

І: = 4+РОЬЕ_НЕІСНТ*ЬЕЕТ_РОЬЕ_МІВТН + РОЬЕ_ШОТН* ТОР_РОЬЕ_НЕІСНТ; 

ІЕ і<>д Екеп Ьедіп 

аррІісаЕіоп.МеззадеВох(' Неверный размер файла!',ЕАМЕ_РВ.ОС, МВ_ОК); 
СІозеЕііе(Е); ехіЕ 
епсі; 

//считываем данные для верхнего числового поля: 
оЕЕ:= 4; 

Еог і := 0 Ео РОЬЕ^ЮТН -1 Ьо 
Ьедіп 
п : — 0 ; 

//в каждом ряду должно быть хотя бы одно число: 
тазСо1зЕ[ит [ і, 0 ] . зЫит: = ' 0 ' ; 

Еог ^ := ТОР_РОЬЕ_НЕІСНТ - 1 ЬомпЕо 0 сіо //снизу вверх 

Ьедіп 

8еек(Е, ТОР_РОЬЕ_НЕІСНТ*і+^+ о ЕЕ) ; 

Кеасі (Е, Ь) ; 

ІЕ ЬоО Екеп Ьедіп 

тазСоТзЫит[і , п] .зЫит:= іпЕЕозЕг (Ь); 




іпс(п); 
епсі; 
епсі; 
епсі; 

// считываем данные для левого числового поля: 
оРР: = ТОР_РОЬЕ_НЕІСНТ * РОЬЕ_^ЮТН + 4; 

Рог ^ := 0 По РОЬЕ_НЕІСНТ -1 сіо //сверху вниз 

Ьедіп 
п : = 0; 

Рог і := ЪЕЕТ_РОЬЕ_Ѵ\[І БТЫ - 1 сіомпРо 0 сіо 
Ьедіп 

5еек(Е, ЬЕЕТ_Р0ЪЕ_1лЛБТН ^+і + оРР) ; 

КеаЬ (Е, Ь) ; 
іР ЬоО РПеп Ьедіп 

тазКомзИшп [п, РОЪЕ_НЕІСНТ — 1 — д ] .зИит:= іпРРозРг(Ь); 
іпс(п); 
епсі; 
епсі; 
епсі; 

//закрыть файл - всё загружено: 

СіозеЕііе(Е); 

Ргераге (Р0ЬЕ_ЭД1ВТН, РОЬЕ_НЕІСНТ, ТОР_РОЬЕ_НЕІСНТ г ЬЕЕТ_РОЬЕ_ѴіІВТН) ; 
епсі; // ЪоасіПсгЕіІе 

Ьедіп 

іР зПаПиз=' ПОИСК ' РПеп ехір; 

//"прокручиваем" все поля в начало: 
сідРоіе . ЪеРРСоі : = 0; сідРоіе . ТорКош : = 0; 

ЬдСоІзИит.ЬеРРСоі:= 0; ЬдСоІзИит. ТорКош := 0; 

ЬдКомзИшп.ЪеРРСоі:= 0; ЬдРошзИиш. ТорКош := 0; 

//число разгаданных клеток = 0: 

ІЫРеасІу. СарРіоп : = 1 0 ’ ; 

//начнём решение задачи с нулевого уровня: 

ІЫЬеѵеі . СарРіоп : = 1 0 ’ ; 

Р1дСотт:= Раізе; 

РгтМето.тетоі.Сіеаг ; 

РгтМето.тетоі.ЗеПЕосиз; 

//файлы по умолчанию имеют расширение ;і ср: 
орепсііаіоді. ОеРаиіРЕхР : = т ^ ср ' ; 
орепсііаіоді. ЕіІРег : = 

'Иарап риггіе (* оср, *орс, *.ісѵг, * .^рп, Р]с, *^сг) | ' + 

1 *.ИСР;*.ИРС;*.ИСШ; *.ИС; *.ПСР'; 

//ищем файлы в каталоге ’ЕІСІШЕ': 

з : =ехРгасРРііераРП (арріісаРіоп . ехепате) + ' ЕІСІІКЕ\ ’ ; 
орепсііаіоді .ІпіНіаЮіг: = з; 

орепсііаіоді. ТіРІе : = ' Загрузите новую фигуру'; 
іР орепсііаіоді. ЕхесиРе РПеп Ьедіп 
//очистить игровое и числовые поля: 
зЬРСІеагРоіеСііск(зеіР); 

//выбрали файл с именем ИатеЕід=з: 
з:= орепсііаіоді. Рііепате; 

ИатеЕід:=з; 

//файл формата ИРС 
з:= ЕхРгасРЕііеЕхР(ИатеЕід); 

іР з= ' орс' РПеп Ьедіп ЬоасІПрсЕіІе; ехір епсі 

//файл формата ИСЭД - задания для самостоятельного решения 

//из программы Романа Гантверга и Дмитрия Самсонова Иарап СгоззтогЬ 




//ЗоІиЕег (Японский кроссворд - Решатель) , 1999 

еізе ІЕ з= ’ . □ сш' ЕЬеп Ьедіп ЬоаЬЯсмЕіІе; ехіЕ епсі 
//обычный текстовый файл: 

еізе ІЕ з= '^рп' ЕЬеп Ьедіп ЬоасІЯрпЕіІе; ехіЕ епсі 
//файл картинки программы Сип 'з Яарапезе СгоззтогЬ: 
еізе ІЕ з= ' . ]с' ЕЬеп Ьедіп ЬоасІЯсЕіІе; ехіЕ епсі 
//файл задачи из программы "Японский кроссворд 2000": 
еізе ІЕ з= ' . ]сг ' ЕЬеп Ьедіп ЬоасІЯсгЕіІе; ехіЕ епсі; 

{$і-} 

АззідпЕіІе(Е,ЫатеЕід); 

КезеЕ(Е); 

{$і+} 

ІЕ ІОКезиІЕОО ЕЬеп Ьедіп //ошибка при загрузке файла 

аррІісаЕіоп .МеззадеВох ( ! Такой фигуры нет !' , ЫАМЕ_РКОС Л МВ_ОК); 

ехіЕ 

епсі; 

//начинаем считывать файл: 
пЬіпез:=0; //считано строк фигуры 
ѵЯііІе поЕ еоЕ(Е) Ьо Ьедіп 
//считать строку из файла: 

Кеасііп (Е, 3) ; 

//комментарий к фигуре? 

ІЕ ( (ІепдЕЬ (з) >1) апсі (з[1] = т / т ) апсі (з[2] = т / т )) ог 
(Е1дСотт= Егие) ЕЬеп //- комментарий 
Ьедіп 

ІЕ Е1дСотт=Еа1зе ЕЬеп //- начало комментария 
Ьедіп 

Е1дСотт:= Егие; 
з:=сору(з г 3 , ІепдЕЬ(з)); 

ЕгтМето.тетоі.Ьіпез.ТехЕ:=з; 
епсі 
еізе 

ЕгтМето.тетоі.Ьіпез.ТехЕ:=ЕгтМето.тетоі.Ьіпез.ТехЕ+#10+з; 

епсі 

еізе Ьедіп //- строка фигуры 
іпс(пЬіпез); 

//сохранить строку в массиве: 
зз[пЬіпез]:=з; 
епсі 
епсі; 

//закрыть файл - всё загружено: 

СІозеЕіІе(Е); 

//размеры игрового поля - 
//высота поля в клетках: 

Ь:= огЬ (зз[1][1])-огЬ(’0 1 ); 

//ширина поля в клетках: 
те: = огЬ (зз[1][2]) -огЬ ( 1 0 1 ); 

//проверить размеры фигуры: 

ІЕ (Ь > МАХ_РОЬЕ_НЕIСНТ) ог Ы > МАХ_РОЬЕ_Ѵ\ПЬТН) ЕЬеп Ьедіп 

аррІісаЕіоп .МеззадеВох('Слишком большая фигура!',ЕАМЕ_РВОС, МВ_ОК); 
ехіЕ 
епсі; 

//количество строк для числовых полей должно соответствовать 
//размерам поля: 

ІЕ пЬіпез-1 <> Ь + м ЕЬеп Ьедіп 

аррІісаЕіоп .МеззадеВох('Неверное количество данных!',ЕАМЕ_РВОС, 
МВ ОК); 




ехіЬ 

епсі; 

//занести данные в шазСоІзЫиш, тазКошзЫит: 
тахЬеп:=0; 

Гог ^:=2 Ьо Ь+1 сіо Ьедіп 

з:=зз|^]; //- очередная строка из массива 

//по длине очередной строки - 
Гог і:=1 Ьо ІепдЬЬ(з) сіо Ьедіп 

ІЬ 1епдЬЬ(з)> тахЬеп ЬЬеп тахЬеп:= ІепдЬЬ(з); 

//проверить количество групп чисел в строке: 

ІЬ тахЬеп > МАХ_СЕЬЬШМ ЬЬеп Ьедіп 

арріісаЬіоп .МеззадеВох('Слишком много групп!',ЫАМЕ_РКОС Л 


МВ_ОК); 

//очистить тазР.отезЬ[ит [ ] : 

С1еаг_тазВ.отезЬ[ит; 

ехіЬ 

епсі; 

//занести число в массив: 

тазВотезЫшп[ і-1 , ^ -2 ].зЫит:= іпЬЬозЬг (огЬ(з[ і ])-огЬ(’0')); 
епсі; 
епсі; 

//макс, число групп в левом числовом поле: 

ЬЕЕТ_РОЬЕ_^ЮТН:= тахЬеп; 

//начинаем заполнение массива верхнего числового поля: 
тахЬеп:=0; 

Ьог ;і:=Ь+2 Ьо пЬіпез сіо Ьедіп 
//очередная строка: 
з : —зз ] ; 

//по длине очередной строки - 
Ьог і:=1 Ьо ІепдЬЬ(з) сіо Ьедіп 

іі 1епдЬЬ(з)> тахЬеп ЬЬеп тахЬеп:= ІепдЬЬ(з); 

//проверить количество групп чисел в строке: 
іі тахЬеп > МАХ_СЕЬЬШМ ЬЬеп Ьедіп 

арріісаЬіоп .МеззадеВох('Слишком много 


групп!’,ЫАМЕ РВ.ОС, 


МВ ОК) 


//очистить тазСо1зЫит[]: 

С1еаг_тазСо1зЫит; 

ехіЬ 

епсі; 

//занести число в массив: 

тазСоІзЫит [^-Ь-2, і-1 ].зЫит:= іпЬЬозЬг (огЬ(з[ і ])-огЬ(’0’)); 
епсі; 
епсі; 

//макс, число групп в верхнем числовом поле: 

ТОР_РОЬЕ_НЕІСНТ := тахЬеп; 

//размеры поля: 

РОЬЕ_ЭДЮТН: = те; РОЬЕ_НЕІСНТ : = Ь; 

//вывести в заголовке формы имя загруженного файла: 

Ьогті . сарЬіоп := ЫАМЕ_РКОС + 1 [’ + ЫатеЕід + ']'; 

//вывести поля заданных размеров с числами: 

Ргераге (РОЬЕ_ШВТН, РОЬЕ_НЕІСНТ, ТОР_РОЬЕ_НЕІСНТ, ЬЕЕТ_РОЬЕ_Ѵ\МОТН) ; 
епсі; //орепсііаіоді .ЕхесиЬе 
епсі; //зЬЬЬоасІЕідСііск} 


Следует заметить, что, как ни старайся последовательно излагать «мате¬ 
риал», где-нибудь да и встретится анахронизм. Вот и в этой процедуре 




встречаются «воспоминания о будущем», поэтому давайте забежим чуточ¬ 
ку вперёд и, нарушив логику событий, сделаем два добрых дела. 

Во-первых, добавим к проекту ещё одну форму - /гтМето, и сверху слева 
поместим компонент Ітадеі, в котором будет отображаться растровая 
картинка или значок - они послужат нам при составлении собственных 
задач. Как и прежде, в компоненте Метоі вы можете записывать свои 
комментарии к картинкам (например, сложность решения, авторство за¬ 
дачи, источник и тому подобное] - если будет желание. Они сохранятся с 
условием задания и будут вместе с ним загружаться. Расположение ком¬ 
понентов на форме большого значения не имеет, положитесь на свой вкус. 
Можно хотя бы так (Рис. 3.33). 



Рис. 3.33. Форма для комментариев 


В тексте модуля МетоѴпіі нет ничего неожиданного для вас: 


ипік МетоОпік; 

іп'Ьег^асе 

изез 

Иіпсіоѵз, Меззадез, ЗузШ:і1з, Сіаззез, СгарЫсз, Сопкгоіз, Гогтз, 
Біаіодз, 

ЗЫСкЫз , ВиЫопз, ЕхкСкгІз; 

Еурѳ 

ТЕгтМето = сіазз (ТЕогт) 

Метоі: ТМето; 

зЪЕСІеаг: ТЗреесШиЫоп; 

зЪкМіпітіге: ТЗреесШиккоп; 

Ітадеі: ТІтаде; 

ргосесіиге зЪЕСІеагСІіск (Зепсіег: ТОЬдесЬ) ; 
ргосесіиге зЪкМіпітігеСІіск (Зепсіег: ТОЬдесЬ) ; 
ргіѵаке 

{ Ргіѵаке сіесіагакіопз } 
риЫіс 

{ РиЫіс сіесіагакіопз } 



































епсі; 

ѵаг 

і. гтМето : Т і. гтМето; 
ітрІетепЬаЬіоп 
изез ЫірропОпіЬ; 

{$К *.БРМ} 

ргосесіиге Т^гшМето. зЪЬСІеагСІіск (Зепсіег : ТО^есЬ); 
Ьедіп 

ігтМето.тетоі.Сіеаг; 
і гтМето . тетоі. ЗеЬГосиз 
епсі; 

ргосесіиге Т^гшМето. зЬШіпітігеСІіск (Зепсіег : ТОЬзесЬ) ; 
Ьедіп 

і гтМето . МіпсіоѵЗЬаЬе : =ѵзМіпіті гесі 
епсі; 

епсі. 


Во-вторых, обеспечим работой кнопку зЪіЫитЪегз. Она потребуется нам 
позднее, когда мы займёмся разработкой собственных задач. Нарисовав 
картинку, вы просто нажмёте эту кнопку, и программа автоматически 
установит нужные размеры числовых полей и заполнит их числами. Так 
что вам никогда не придётся считать чёрные и белые клетки на своём ри¬ 
сунке: ваше дело - творчество, а считать должен компьютер! Действие 
этой процедуры достаточно прозрачно, что отнюдь не мешает вам «поко¬ 
паться» в ней. 


//ОЦИФРОВАТЬ РИСУНОК 

ргосесіиге ТРогтІ . зЪЬЫишЪегзСІіск (Зепсіег : ТО^есЬ) ; 
ѵаг 

: іпЬедег; 

Ъ.,ѵг: іпЬедег; 
п,пд: іпЬедег; 

РгеЬ, Іеп: іпЬедег; 

Ьедіп 

//очистить цифровые поля: 

С1еаг_тазСоІ5Ыиш; 

С1еаг_тазКошзЫшп; 

//считываем данные для верхнего числового поля: 

Ь:=0; //- высота верхнего числового поля 

Рог і := 0 Ьо РОЬЕ_Ѵ\ЛЬТН -1 сіо //- по длине поля 

Ьедіп 

пд:= 0; //число групп в ряду 

1еп:= 0; //- длина группы 

Ргес1: = ]ТОМ_ѴШІТЕ; //- предыдущая клетка 

//в каждом ряду должно быть хотя бы одно число: 






шазСоІзЫигп [ і , 0 ] . зЫигп: = ' 0 ' ; 

//для каждого столбца: 

Гог ^ : = 0 Ро РОЬЕ_НЕІСНТ -1 сіо 

Ьедіп 

//считать очередной число: 
п:= шазРоІе[і,^]; 

ІР п= ШМ_ВЬАСК РЬеп Ьедіп //- чёрная клетка 

ІР ргесК>ШМ_ВЬАСК РЬеп Ьедіп //- предыдущая клетка не чёрная - 

//записать группу: 

тазСо1зЕ[ит [і , пд-1 ] ,зЕ[ит: = іпРРозРг(Іеп) ; 

//начинается новая группа: 
іпс(пд); 

1еп:= 0; 
епсі; 

//увеличить длину группы: 
іпс (Іеп); 
епсі; 

ргес!:= п; 
епсі; 

тазСоІзРІит [ і , пд-1 ] . зЕІит: = ІпРРозРг(Іеп); 
тазСоІзЕІит [і,-1] .Ыит:= пд; 

ІР пд> Ь. РЬеп Ь:= пд; 
епсі; 

//формируем данные для левого числового поля: 
м:=0; //ширина левого числового поля 

Рог ^ := 0 Ро РОЬЕ_НЕІСНТ -1 сіо //- по всем строкам поля 

Ьедіп 

пд:= 0; //- число групп в ряду 

1еп:= 0; //- длина группы 

ргес1:= 0; //- предыдущее число 

//в каждом ряду должно быть хотя бы одно число: 
тазВошзРІит [ 0, ^ ] . зРІит: = 1 0 1 ; 

Рог і := 0 Ро Р0ЬЕ_ЭД10ТН -1 сіо //- по длине строки 
Ьедіп 

//считать очередное число: 
п:= тазРо1е[і^]; 

ІР п= ШМ_ВЪАСК РЬеп Ьедіп //- чёрная клетка 

ІР ргесіо ШМ_ВЪАСК РЬеп Ьедіп //-предыдущая клетка не чёрная - 

//записать группу: 

тазКошзРІит [пд-1, ^ ] . зРІит: = іпРРозРг (Іеп) ; 

//начинается новая группа: 
іпс(пд); 

1еп:= 0; 
епсі; 

//увеличить длину группы: 
іпс (Іеп); 
епсі; 

ргес1: = п; 
епсі; // і 

тазКомзЕ[ит [пд-1, ^ ] . зЫит: = ІпРРозРг(Іеп); 
тазКошзРІит [-1 , ^ ] . Жіт: = пд; 

ІР пд> м РЬеп м: = пд; 
епсі; //] 

//проверить число групп: 




ІЕ (те > МАХ_СЕЬЪШМ) ог (Ъ. > МАХ_СЕЬЬШМ) ЕЬеп Ьедіп 

аррІісаЕіоп .МеззадеВох (' Слишком много групп !',ЫАМЕ_РКОС, МВ_ОК); 
ехіЕ 
епсі; 

ТОР_РОЬЕ_НЕІСНТ:= А; 

ЬЕЕТ_РОЬЕ_Ѵ\[ІБТН : = те; 

//вывести поля заданных размеров с числами: 

Ргераге (РОЬЕ_^ЮТН, РОЬЕ_НЕІСНТ, ТОР_РОЬЕ_НЕІСНТ, ЬЕЕТ_РОЬЕ_ЭДІВТН) ; 
епсі; // ТЕогтІ. зЪЕЕ[итЪегзС1іск 


Если вы ввели данные для числовых полей, то было жалко потерять их по¬ 
сле завершения работы с программой. Но нас уже давно дожидается вре¬ 
менно безработная (но с определённым местом жительства!) кнопка 
зЪіЗаѵеРід. Она-то и будет переписывать условие задачи в файл. 

Нажав эту кнопку, вы попадёте в диалог, где сможете выбрать название 
файла для своей задачи. Конечно, лучше со смыслом, чем с порядковым 
номером, иначе потом её трудно будет отыскать среди множества других. 
Вместе с данными в файл будет помещён и комментарий, поэтому у вас 
есть возможность добавить свои замечания к задаче, которые потом могут 
вам пригодиться. 

Мы не будем изобретать собственного формата файла, а воспользуемся 
тем, что и в программе Зоіиіег Гантверга и Самсонова - ]СР. Это позволит 
вам решать свои задачи не только в рассматриваемой программе, но и в 
некоторых других. Польза от этого такая. Если вы будете совершенство¬ 
вать нашу программу, то вам легко будет сравнить её «убойную силу» не 
только с ее предыдущими версиями, но и с чужими достижениями. 


//ЗАПИСАТЬ ЗАДАЧУ 

ргосесіиге ТРогтІ . зЪЕЗаѵеРідСІіск (ЗепЬег: ТО^есЕ) ; 
ѵаг 

Е: ЕехЕЕіІе; 

Еп,з: зЕгіпд; 
і,]: іпЕедег; 

Ьедіп 

ІЕ зЕаЕиз=' ПОИСК ' ЕЬеп ехіЕ; 

//расширение файлов фигур: 
заѵесііаіоді. ОеЕаиІЕЕхЕ : = т ] ср 1 ; 

заѵесііаіоді. ЕіІЕег : = ’ Сарап риггіе (*.]ср) |*.ССР Т ; 

//записываем в каталог 'ЕІСІЖЕ': 

з:=ехЕгасЕЕі1ераЕЪ.(аррІісаЕіоп.ехепате)+'ЕІСІЖЕ\’; 
заѵебіаіоді .ІпіЕіаЮіг: = з; 

заѵебіаіоді. ТіЕІе : = ' Запишите фигуру на диск'; 
заѵебіаіоді. Еііепаше : = ЫатеЕід; 

ІЕ поЕ заѵебіаіоді.ЕхесиЕе ЕЬеп ехіЕ; 

//имя конечного файла: 

Еп : = заѵебіаіоді. Еііепаше; 

//изменить расширение файла, если при записи было выбрано другое имя: 
Еп:=СЬапдеЕі1еЕхЕ(Еп, '.^ср'); 

ЫатеЕід:=Еп; 






аззідпРііе (Р,Рп); 
гемгіРе (Р) ; 

//записать фигуру - 
//высота и ширина фигуры: 

мгіРеіп (Р, сЬг(РОЬЕ_НЕІСНТ + огсі ( ’ 0 ' ) ) + сЕг (РОЬЕ_^ЮТН+ огсі ( ’ 0 ' ) ) ) ; 
//данные из левого числового поля- 
//очередная строка: 

Рог :):= 0 Ро Р0ЬЕ_НЕІСНТ-1 сіо Ьедіп 
Рог і:= 0 Ро ЬЕЕТ_Р0ЬЕ_ЭД10ТН-1 сіо 
ІР тазКошзЕит [ і^ ] .зЫитО' ' РЬеп 

мгіРе (Р, сЬг (зРгРоіпР (тазР.омзЕ[ит [ і, ^ ] . зЫит) + огсі ('О’))); 
мгіРеіп (Р, ' '); 
епсі; 

//данные из верхнего числового поля - 
//очередная строка: 

Рог д : =0 Ро РОЬЕ_ЭД1 ОТН-1 сіо Ьедіп 
Рог і:= 0 Ро ТОР_РОЬЕ_НЕIСНТ-1 сіо 
ІР тазСоізЫит [ д ^ і_] . зЫитО РЬеп 

шгіРе (Р, сЬг (зРгРоіпР (тазСоІзРГит [^ , і] . зРГит) + огЬ( , 0'))); 
мгіРеіп (Р, ' ' ) ; 
епсі; 

//записать комментарий к фигуре: 
з:=РгтМето.тетоі.Ъіпез.ТехР; 

ІР з<>'' РРеп Ьедіп 
з:='//'+з; 
мгіРеіп (Р, з) 
епсі; 

сіозеРііе(Р); 

//вывести в заголовке формы новое название файла: 

Рогті. сарРіоп: = ЕАМЕ_РР.ОС + ' [' + ЫатеЕід + ']’; 

Рогті. КеРгезЬ. ; 
епсі; //За ѵе 


Делайте с нами, или Тонкие штучки на компьютере 

Помнят руки! 

Радостный возглас героя Юрия Никулина 
из фильма Когда деревья были большими 

Подготовив плацдарм, нам ничего другого не остаётся, как испытать свои 
силы в ручном решении - хотя и на компьютере - одного из японских 
кроссвордов. Вы можете начать с того самого рисунка, который был ис¬ 
пользован нами как пример решения задач. Тогда вы всегда сможете про¬ 
контролировать свои шаги и лучше усвоить Правила. 

Само решение мы сделаем точно таким же, как и на бумаге, чтобы не мо¬ 
рочить себе голову компьютерной премудростью. 




1. Отыскав подходящий ряд, мы должны отметить разгаданные белые и чёрные 
клетки (напомню, что не разгаданные клетки - серые). Естественно использовать 
для этого левую и правую кнопки мыши. Левой мы будем ставить чёрные клетки, 
правой - белые. А вот если потребуется вернуть клетке её первоначальный се¬ 
рый цвет, то надо бы нажать среднюю кнопку мыши, да не все мышки так далеко 
продвинуты, поэтому серые клетки мы будем ставить той же левой кнопкой, но с 
нажатой клавишей ЗЫЙ. Делать это придётся нечасто (не ошибайтесь при реше¬ 
нии - и вовсе не придётся), так что смиритесь. Для пущего форсу вид мышиного 
курсора будет изменяться: при передвижении картинки он приобретёт вид загре¬ 
бущей руки, при рисовании - кисти. Причём передвигать картинку или рисовать 
на поле можно, только если нажата соответствующая кнопка в меню. Процесс ри¬ 
сования выглядит так: по координатам мышки в пикселях мы определяем, в какой 
клетке поля она находится, и заносим в массив код нужного цвета, после чего пе¬ 
рерисовываем клетку в обновлённом виде. 


//НАЖАТЬ КНОПКУ МЫШКИ 

ргосесіиге ТРогшІ . сідРоІеМоизеОоші (ЗепЬег : ТОЬд есі; ВиЬЬоп : ТМоизеВиЬЬоп; 

ЗЬііЬ: ТЗЬііЬЗЬаЬе; X, У: ІпЬедег); 
ѵаг 

АСоІ,АРом: іпЬедег; 
агеа: ЬРесЬ; 

Ьедіп 

іі зЬаЬиз=' ПОИСК ' ЬЬеп ехіЬ; 

//изменить форму курсора 
//передвигаем картинку: 
іі зЬЬМоѵе. сіомп ЬЬеп Ьедіп 

зсгееп. Сигзог :=ТСигзог(сгМоѵе); 

ЬдРоІе.Сигзог :=ТСигзог(сгМоѵе); 
зсгееп.Сигзог:=ТСигзог(сгВеіаиІЬ); 
ехіЬ епсі; 

//рисуем на поле: 

іі поЬ зЬЬБгаш.Бошп ЬЬеп ехіЬ; 

зсгееп.Сигзог:=ТСигзог(сгКізЬ^); 

ЬдРоІе.Сигзог :=ТСигзог(сгКізЬ^); 
зсгееп.Сигзог:=ТСигзог(сгОеіаиіЬ); 

//координаты мыши: 

ЬдРоІе .МоизеТоСеІІ (х, у, АСоІ, АРом) ; 
сеіітоизе.х:=АСоі; 
сеіітоизе . у: =АРо ѵг; 

агеа:= ЬдРоІе.СеІІРесЬ(АСоІ, АРом); 

//если кнопка мыши нажата вместе с клавишей ЗЬііЬ, 

//то поставить серую клетку: 
іі ззЗЬііЬ іп зЬііЬ ЬЬеп Ьедіп 
тазРоіе[АСоІ, АРоте] :=ШМ_СКАУ; 

//закрасить клетку: 

ЬдРоІеЬгамСеІІ (зеіі, АСоІ, АРом, агеа, []); 
ехіЬ 
епсі; 

//если нажата только левая кнопка - чёрная клетка: 

іі ззЪеіЬ іп зЬііЬ Ытеп 

Ьедіп 

//занести в массив цвет клетки 
тазРоіе[АСоІ, АРоте] :=ШМ_ВЪАСК; 

//закрасить клетку: 




ЬдРоІеЬгамСеІІ (зеіі, АСоІ, АКом, агеа, []); 
епсі; 

//если нажата правая кнопка - белая клетка: 

іі ззКідЬЬ іп зЬііЬ ЬЬеп 

Ьедіп 

//занести в массив цвет клетки: 
шазРоІе [АСоІ, АРош] : = ШМ_ШІТЕ; 

//закрасить клетку: 

сІдРоІеЬгамСеІІ (зеіі, АСоІ, АКом, агеа, []); 
епсі; 

епсі; // ТЕоггпІ. сІдРоІеМоизеРошп 


При отпускании кнопки мыши мы просто возвращаем курсору обычный 

вид: 


//ОТПУСТИТЬ КНОПКУ мыши 

ргосесіиге ТРогшІ. сідРоІеМоизеир (Зепсіег : ТОЬдесб; ВиЬЬоп: ТМоизеВиЬЬоп; 

ЗЬііЬ: ТЗЬііЬЗЬаЬе; X, У: ІпЬедег); 

Ьедіп 

//изменить форму курсора: 
зсгееп . Сигзог : =ТСигзог ( сгНапс!) ; 

ЬдРоІе . Сигзог : =ТСигзог (сгНапс!) ; 
зсгееп . Сигзог : =ТСигзог (сгОеіаиІІ:) ; 
епсі; 


В принципе, этого вполне достаточно для того, чтобы решать задачи. Вот 
только не очень удобно щёлкать на каждой клетке, если разгадана целая 
группа клеток, а то и весь ряд целиком. Поэтому наделим мышку, как и ку¬ 
рьёзного Микки Мауса, способностью закрашивать клетки при передви¬ 
жении по полю. События здесь происходят точно те же, что и при щелчке. 
Мы добавим в процедуру ддРоІеМоизеМоѵе ещё и возможность циклически 
сдвигать рисунок. Пока нам это ни к чему, но, взявшись за рисование соб¬ 
ственных кроссвордов, вы оцените её сполна: если к уже готовой физио¬ 
номии вам захочется пририсовать усы, а места для них нет, то просто 
сдвиньте картинку и потешьте себя. Поскольку рассуждать о сдвигах - хо¬ 
тя бы и поля - сейчас не очень уместно, то разберитесь в этом вопросе са¬ 
мостоятельно, тем более что здесь всё просто (такие «миражи» и «верти- 
жи» самомнения часто возникают, когда программа уже отлажена). 


//ПЕРЕМЕЩАТЬ МЫШКУ ПО ПОЛЮ 

ргосесіиге ТРогшІ . сідРоІеМоизеМоѵе (Зепсіег : ТОІ^есІ:; Зііііі:: 
ТЗЬі^'ЬЗ'Ьа'Ье; X, 

У : ІпРедег) ; 
ѵаг 

АСо1,АКои: іпіседег; 
агеа: ТКесЬ; 

//прокрутить поле влево 

ргосесіиге РоІеЬе^ѣ; 








ѵаг 

п, х, у: ІпЬедег; 

Ьедіп 

// сдвигаем : 

Рог у := 0 То РОЪЕ_НЕІСНТ-1 сіо Ьедіп 
//запомнить цвет первой клетки: 
п:= тазРоІе[0,у]; 

Рог х := 0 То РОЕЕ_Ѵ\ГЮТН - 2 сіо 
тазРоІе[х,у] := тазРоІе[х+1,у]; 
//последний ряд <-- первый ряд: 
тазРоІе [Р0 ЬЕ_ілГІ 0ТН-1, у] : = п; 

епсі 

епсі; //РоіеЬеЬЬ 

//Сдвинуть поле вправо 

ргосесіиге РоІеКідЪ'Ь; 

ѵаг 

п, х,у: ІпЬедег; 

ХК: ІпЬедег; //правый столбец 

Ьедіп 

ХК: = Р0ЬЕ_ИЮТН-1; 

Рог у := 0 То Р0ЬЕ_НЕІ6НТ-1 сіо Ьедіп 
п:= тазРоІе[ХК, у]; 

Рог х := ХК йоѵтТо 1 сіо 

тазРоІе[х,у]:= тазРоІе[х-1,у]; 
//первый ряд <-- последний ряд 
тазРоІе[0, у]:=п; 

епсі 

Епсі; //РоІеКідЬЬ 

//Сдвинуть поле вверх 

ргосесіиге Роіеир; 

ѵаг 

п, х, у: ІпЬедег; 

Ьедіп 

Рог х := 0 То Р0ЬЕ_Ѵ\7ІЕТН-1 сіо Ьедіп 
п:= тазРоІе[х,0]; 

Рог у := 1 То Р0ЬЕ_НЕІСНТ-1 сіо 
тазРоІе[х,у-1] := тазРоІе[х,у]; 

//нижняя строка <-- верхняя строка: 
тазРоІе[х, Р0ЬЕ_НЕІСНТ-1]:= п; 

епсі 

Епсі; //Роіейр 

//Сдвинуть поле вниз 

ргосесіиге РоІеБоѵпі; 

ѵаг 

п, х, у: ІпЬедег; 

Ьедіп 

Рог х := 0 То Р0ЬЕ_1лГІ0ТН-1 сіо Ьедіп 
п : = тазРоІе [х, Р0ЬЕ_ИЮТН-1 ] ; 

Рог у := Р0ЬЕ_НЕІСНТ-1 сіомпТо 1 сіо 
тазРоІе[х,у] := тазРоІе[х,у-1]; 
//верхняя строка <— нижняя строка: 
тазРоІе[х, 0]:= п; 

епсі 




Епсі; //РоІеБоип 
Ьедіп 

іі зЬаЬиз=' ПОИСК ' ЬЬеп ехіЬ; 
сідРоІе. ЗеЬЕосиз; 

//координаты мыши: 

сідРоІе . МоизеТоСеІІ (х, у, АСоІ, АКоѵ) ; 

зЬаЬизЬагІ. Рапеіз [ 3 ] . ЬехЬ : = 'Х= '+іпЬЬозЬг (АСоІ+1) ; 
зЬаЬизЬагІ. Рапеіз [ 4 ] . ЬехЬ : = ' У= ' +іпЬЬозЬг (АКоѵ+1) ; 
//циклически сдвигаем картинку: 

іі (зЬСМоѵе. Роип) апсі (ззЬеЬЬ іп зЬіЬЬ) ЬЬеп Ьедіп 
ІЬ сеіітоизе.х>АСо1 ЬЬеп РоІеЬеЬЬ; 

ІЬ сеіітоизе.х<АСо1 Ыіеп РоІеКідЬЬ; 

ІЬ сеіітоизе.у>АКом Ыіеп РоІеИр; 

ІЬ сеіітоизе.у< АКоѵ Ыіеп РоІеОоѵт; 
сідРоІе. ІпѵаІісіаЬе; 
сеіітоизе.х:=АСо1; 
сеіітоизе.у:=АКоѵ; 
епсі; 

// рисуем : 

ІЬ поЬ зЪЬРгаѵ.Роѵт Ыіеп ехіЬ; 
агеа:= сідРоІе. СеІІКесЬ (АСоІ, АКои) ; 

//если кнопка мыши нажата вместе с клавишей ЗЫй, 
//то поставить серую клетку: 

ІЬ (ззЗЬіЬЬ іп зЬіЬЬ) апсі (ззЬеЬЬ іп зЬіЬЬ) апсі 

((сеіітоизе . хОАСоІ) ог (сеіітоизе . уОАКоѵ) ) Ыіеп 
Ьедіп 

//занести в массив цвет клетки: 
тазРоІе [АСоІ, АКо ѵг ] : =ШМ_СРАУ ; 

//закрасить клетку: 

сідРоІеРгаѵСеІІ (Зеіі, АСоІ, АКоѵ, агеа, []); 
сеіітоизе.х:=АСо1; 
сеіітоизе.у:=АКом; 
ехіЬ 
епсі; 

//если нажата левая кнопка - чёрная клетка 
ІЬ (ззЬеЬЬ іп зЬіЬЬ) апсі 

( (сеіітоизе . хОАСоІ) ог (сеіітоизе . уОАКом) ) ЬЬеп 
Ьедіп 

//занести в массив цвет клетки: 
тазРоІе[АСоІ, АКои] :ЫШМ_ВЬАСК; 

//закрасить клетку: 

сідРоІеРгаѵСеІІ (Зеіі, АСоІ, АКоѵ, агеа, []); 
епсі; 

ІЬ (ззКідЬЬ іп зЬіЬЬ) апсі 

( (сеіітоизе . хОАСоІ) ог (сеіітоизе . уОАКоѵ) ) Ыіеп 
Ьедіп 

//занести в массив цвет клетки: 
тазРоІе [АСоІ, АКои] := ЖПУЫйНІТЕ; 

//закрасить клетку: 

ЬдРоІеОгаѵСеІІ(ЗеІЬ, АСоІ, АКоѵ, агеа, []); 
епсі; 

//новые координаты мыши: 




сеіітоизе.х:=АСо1; 
сеіітоизе.у:=АРоѵ; 
епсі; // ТЕогтІ.ЬдРоІеМоизеМоѵе 


2. Помните, как в рассмотренном в начале главы примере мы отмечали разгадан¬ 
ные группы кружком ? Казалось бы, мелочь, а сильно облегчает жизнь: сразу вид¬ 
но, какие группы ещё не разгаданы. Сейчас мы поступим иначе - кружки ставить 
не будем, а вместо этого пометим разгаданные группы жёлтым цветом. Иначе 
говоря, мы изменяем при этом статус группы - из состояния «неразгаданности» 
зІѴѴЫіе, мы переводим её в более приятное состояние зіУеІІоѵѵ (щёлкнув еще раз, 
вы вернёте клетке белый цвет). Так что процедуре, обрабатывающей нажатие 
кнопки в числовом поле, нужно просто занести нужное значение статуса в «клик¬ 
нутую» клетку: 


//ИЗМЕНИТЬ СТАТУС ГРУППЫ 

ргосесіиге ТРогхпІ .<1дСо1зЫшпС1іск (Зепсіег : ТОЬ^есЬ); 
ѵаг АСоІ, АРои: ІпЬедег; 

г: ТРЕСТ; 

Ьедіп 

ІЬ поЬ зЪЬПгаи.Ьоѵт ЬЬеп ехіЬ; 

АСо1:= сеІІМоизеТор.х; АРом:= сеІІМоизеТор.у; 
сазе тазСоІзЫит[АСоІ, АРоѵ].ЗЬаЬизСгоир оЬ 

зЬУеІІом: тазСоІзИит [АСоІ, АРом].ЗЬаЬизСгоир:= зЬШііЬе; 
зЬШііЬе: тазСоІзИит[АСоІ, АРоѵ].ЗЬаЬизСгоир:= зЬУеІІоѵ; 
епсі; 

г:= сідСоІзИит. СеІІРесЬ (АСоІ, АРом) ; 
сідСоІзИитПгаѵСеІІ (зеІГ, АСоІ, АРоѵ, г, []); 
епсі; 

//ИЗМЕНИТЬ СТАТУС ГРУППЫ 

ргосесіиге ТРогтІ. сідК.оѵгзЫитС1іск (Зепсіег : ТОЪ^есЬ); 
ѵаг АСоІ, АРом: ІпЬедег; 

г: ТРЕСТ; 

Ьедіп 

ІЬ поЬ зЪЬОгаѵ.Поѵт Ыіеп ехіЬ; 

АСо1:= сеІІМоизеЬеЬЬ.х; АРоѵ:= сеІІМоизеЬеЬЬ.у; 
сазе тазРомзИит [АСоІ, АРом].ЗЬаЬизСгоир оЬ 

зЬУеІІоѵ: тазРоѵзЫит[АСоІ, АРоѵ].ЗЬаЬизСгоир:= зЬЫЫЬе; 
зЬШііЬе: тазРоѵзЫит[АСоІ, АРоѵ] . ЗЬаЬизСгоир : = зЬУеІІоѵ; 
епсі; 

г:= ЬдРомзИит. СеІІРесЬ(АСоІ, АРоѵ) ; 
сідРомзИитПгаиСеІІ (зеІЬ, АСоІ, АРом, Р, []); 
епсі; 


В примере мы дополнительно отмечали и разгаданные ряды, здесь мы это¬ 
го делать не будем - и так всё хорошо видно. А кому не видно - измените 
процедуру так, чтобы при клике на жёлтой клетке она перекрашивалась в 
зелёную (переход в состояние зіСгеегі). 






ОеІрНі в примерах, играх и программах 


Теперь решение задачи на компьютере мало чем отличается от обычного, 
поэтому можете любую задачу решать и так, и этак (Рис. 3.34). 



Рис. 3.34. Осторожно: задача решается автоматически! 

На этом мы и остановимся: решать задачи вручную - это не наш метод, как 
сказал однажды верзила Федя вечному студенту Шурику. Если же эта 
мысль не оставляет вас в покое, то вам нужно позаботиться о запоминании 
позиции на поле после каждого хода (как это сделать, будет рассказано 
дальше) и о возврате назад, если вы попадёте в тупик. Клетку, в цвете ко¬ 
торой вы не уверены, следует помечать иначе, чем разгаданные и не раз¬ 
гаданные, чтобы потом можно было бы вернуться к ней. Неплохо было бы 
подсчитывать количество уже разгаданных клеток. Не очень удобно ре¬ 
шать на экране задачи больших размеров, так как ряды целиком не видны. 
Придётся постоянно двигать поле. Можно немного улучшить ситуацию, 
уменьшив размеры клеток в сетках и, соответственно, размер шрифта. Но 
тут уж берегите глаза - решение огромных задач потребует от вас не¬ 
скольких часов работы и напряжённого вглядывания в экран. Так что если 
вас неудержимо тянет к монументальным формам, купите себе монитор 
подходящих размеров. Конечно, для воплощения всего этого придётся по¬ 
трудиться, но - охота пуще неволи! 

А нам пора дальше. Заставим компьютер делать всё, чему мы уже научи¬ 
лись сами. А учить компьютер - вот где настоящая педагогическая поэма! 
Испытайте себя в роли учителя - и вы много нового откроете для себя (и в 
себе). 
















































Компьютерная педагогика, или Пускай работает 

Иван 


Не можешь - научим, 
Не хочешь - заставим! 

Из книги Армейская жизнь как таковая 

Какое наслаждение наблюдать за тем, 
как работают другие! 

Из Манифеста Филона 

Прежде чем с головой окунуться в пучину страсти, мы сначала должны 
проверить условие задачи, иначе всё решение пойдёт насмарку. Для этого 
мы напишем функцию Тезііпд, которая будет возвращать значение Тгие, 
если всё правильно, или Раізе, если обнаружились ошибки. 

Во-первых, она должна проверить, а загружена ли задача. Это легко уста¬ 
новить по названию задачи, которое хранится в строковой переменной 
ЫатеРід. Если её значение равно 'іетр', то это ошибка: задача не загруже¬ 
на. Эта же ситуация возникнет, если вы ввели данные задачи в числовые 
поля, но не сохранили её на диске под другим именем. 

Во-вторых, если вы вводили числа в поля, то нужно переписать их так, что¬ 
бы они были записаны правильно, то есть от левого и верхнего краёв чис¬ 
ловых полей. За комфорт при вводе чисел придётся расплачиваться напи¬ 
санием процедуры МоѵеМитз. В ней все числа будут сдвинуты вверх и вле¬ 
во (естественно, если числа сразу были записаны верно, то ничего и не из¬ 
менится]. И не забудьте объявить процедуру в разделе ргіѵаіе типа формы: 


ргосесіиге МоѵеЫишз; 


//ПЕРЕНЕСТИ ЧИСЛА В ЧИСЛОВЫХ ПОЛЯХ 

ргосесіиге ТРогшІ . МоѵеИишз ; 

ѵаг 

і, з, п: іпЬедег; 
з: зЬгіпд; 

Ьедіп 

//переносим все числа к верхней границе сетки 
Рог і:= 0 Ро РОЪЕ_Ѵ\ГЮТН-1 Ьо 
Ьедіп 
п : = 0 ; 

// каждый столбец : 

Рог 3 := 0 Ьо ТОР_РОЪЕ_НЕ16НТ-1 сіо 
Ьедіп 

з:= тазСоІзИит [і, з ] . зИигп; 






іі з <> ' ' ЬЬеп Ьедіп 

тазСоІзЕГит[і, 3 ]. зЕГит := 11 ; 
тазСоІзЕГит [і, п]. зЕГит: = з; 
іпс (п); 
епсі; 
епсі; 
епсі; 

//левое числовое поле: 
іог і: = 0 Ьо РОЪЕ_НЕІСНТ-1 сіо 
Ьедіп 
п : = 0 ; 

//в каждой строке: 

іог 3 : = 0 Ьо ЪЕЕТ_РОЪЕ_Ѵ\ГІЬТН-1 СІО 
Ьедіп 

з:= тазКоѵзЕГит [ 3 , і ] . зЕГит; 
іі з <> '' ЬЬеп Ьедіп 

тазКомзЕГит [3 , і] . зЕГит: = ' 
тазКоѵзЕГит [п, і ] . зЕГит := з; 
іпс (п); 
епсі; 
епсі; 
епсі; 

ІпѵаІісіаЬедгісіз; 
епсі; //ТЕогтІ .МоѵеЕГитз; 


В-третьих, кроме проверок, в этой же функции мы соединим приятное с 
полезным: запишем число групп в каждом ряду в массив, чтобы не пере¬ 
считывать их каждый раз, когда нам потребуется это знать. 

В-четвёртых, из элементарной арифметики известно, что общее количе¬ 
ство клеток в группах не зависит от того, будем ли мы их пересчитывать 
слева направо или сверху вниз. Поэтому суммы чисел в верхнем и в левом 
числовых полях должны быть равны. Если это не так, то задачу и решать 
не стоит. Правда, равенство этих сумм вовсе не гарантирует правильности 
условия задачи, то есть это условие необходимое, но не недостаточное. 
Например, если обе суммы равны нулю, то условие задачи (числа] просто 
отсутствует. Это положение может возникнуть, если вы не оцифровали 
свой рисунок, а хотите его решить (вообще-то его и решать не нужно, но 
вдруг вам захотелось «приколоться»]. А вот более «хитрые» ошибки мож¬ 
но обнаружить, только уже решая задачу. 


//проверить данные задачи 

^ипсЬіоп ТезѣіпдО : Вооіеап ; 
ѵаг 

зитЬ, зитТ: іпВедег; 
і, ], п: іпВедег; 

Ьедіп 

Кези1Ь:= Еаізе; 

//если задача не загружена, то нечего решать: 
іі ЫатеЕід=' Ьетр ’ ЬЬеп 






Ьедіп 

ЭДаѵЕггог; 

арріісаРіоп .МеззадеВох (' Вы не загрузили задачу!',ЫАМЕ_РКОС а МВ_ОК); 
ехір 
епсі; 

//нормализовать запись чисел: 

МоѵеРІитз; 

//записать число групп в каждом ряду в массив 
//и подсчитать сумму чисел - 
//верхнее числовое поле: 
зшпТ:= 0; 

Рог і:= 0 Ро РОЪЕ_ЭДІ ЬТН-1 сіо 
Ьедіп 
п : — 0; 

//считаем в каждом столбце: 

Рог ]:= 0 іо ТОР_РОЪЕ_НЕIСНТ -1 сіо 
Ьедіп 

ІР тазСоізЫиш [і^ ] . зЫигп = ' ' РЬеп Ьгеак; //- числа кончились 
іпс (п); 

//записать соотв. число: 

тазСоІзЕІит [ і, ^ ] . Ыит : = зРгРоіпР (тазСоізРІит [ і , ^ ] . зііит) ; 
зитТ:= зишТ + тазСоізРІит[і, ^]. Ыиш 
епсі; 

//записать число групп: 
тазСоізЕиш[і,-1].Ыиш:= п; 
епсі; 

//левое числовое поле: 
зшпЪ: = 0; 

Рог і:= 0 Ро РОЬЕ_НЕІСНТ-1 сіо 
Ьедіп 
п : = 0 ; 

// считаем в каждой строке: 

Рог ]:= 0 іо ЬЕЕТ_Р0ЬЕ_ЭД10ТН-1 сіо 
Ьедіп 

ІР тазКошзііит [^ , і] . зЫит = ' ' РЬеп Ьгеак; //- числа кончились 
іпс (п); 

//записать соотв. число: 

тазВ.омзЕ[ит [ ^ , і ] . Ыит := зРгРоіпР (тазВ.омзЕ[ит [ ^ , і ] . зЫит) ; 
зитЪ:= зитЬ + тазВ.омзЬ[ит[^ , і].Ыит 
епсі; 

//записать число групп: 
тазВошзЫшп [ -1 , і ] .Ыит:= п; 
епсі; 

//проверить суммы чисел: 

ІР зшпТ + зшпЬ= 0 РЬеп Ьедіп 
ЭДаѵЕггог; 

арріісаРіоп .МеззадеВох (' Вы не оцифровали рисунок! ',ЕАМЕ_РВОС, 
МВ_ОК); 

ехір 

епсі; 

ІР зшпТ <> зшпЬ РЬеп 
Ьедіп 

ЭДаѵЕггог; 

з:= 'Сумма чисел сверху (' РіпРРозРг(зшпТ)+ 

')'#10#13'не равна сумме чисел слева (' +іпРРозРг(зитЬ)+')!'; 

арріісаРіоп.МеззадеВох(РСЬаг(з),ЕАМЕ_РКОС, МВ_ОК); 

ехір; 




епсі; 

//если в ряду есть нулевая группа, то других быть не должно 
//верхнее числовое поле: 

Гог і:= 0 Го РОЬЕ_Ѵ\[ІБТН-1 сіо 
//проверяем каждый столбец: 

Гог ]:= 0 1:о Т0Р_Р0ЬЕ_НЕІСНТ-1 сіо 
Ьедіп 

ІГ тазСоІзГІит [і, ^ ] . зііит = ' ' ГЬеп Ьгеак; //- числа кончились 
ІГ (тазСо1зЕ[ит [і, ^ ] . зЫит = '0') апсі (тазСоізІ\[ит [ і,-1 ] . Е[ит>1) 
ГЬеп Ьедіп 
ѴіаѵЕггог; 

з:=’ Неверные данные в столбце ' + ІпГГозГг ( і + 1 ) + '!'; 
арріісаГіоп .МеззадеВох (РСЬаг(з),ЫАМЕ_РКОС, МВ_ОК); 
ехіГ 
епсі; 
епсі; 

//левое числовое поле: 

Гог і:= 0 Го Р0ЬЕ_НЕІСНТ-1 сіо 
//проверяем каждую строку: 

Гог ]:= 0 Го ЬЕЕТ_Р0ЬЕ_ѴІІВТН-1 сіо 
Ьедіп 

ІГ тазР.омзІ\[ит [^ , і] . зЫит = ' ' ГЬеп Ьгеак; //- числа кончились 
ІГ (тазВомзР[ит [ ^ , і ] . зЫит = '0') апсі (тазКо^зЫит [-1, і ] . Р[ит>1) 
ГЬеп Ьедіп 
ЭДаѵЕггог; 

з:=' Неверные данные в строке '+ ІпГГозГг ( і + 1 ) + '!'; 
арріісаГіоп .МеззадеВох (РСЬаг(з),ЫАМЕ_РКОС, МВ_ОК); 
ехіГ 
епсі; 
епсі; 

//всё нормально: 

Кези1Г:= Тгие; 
епсі; // ТезГіпд 


Если вы были дюже внимательны, то могли разглядеть в процедуре «ино¬ 
родное тело» - ѴѴаѵЕггог. Оно внедрено сюда специально для тех, кто не 
равнодушен к звуковым галлюцинациям, иначе говоря, эффектам, кото¬ 
рые преследуют каждого пользователя Шпдом/з, если он не выключил ко¬ 
лонки. Но - каждый имеет право отравлять себе жизнь всеми доступными 
ему способами, в том числе и самыми изощрёнными, к коим можно смело 
отнести музицирование на компьютере. А готовится это зелье так. Объ¬ 
явите там же, где и функцию Тезііпд, три процедуры. 


ргосесЬіге ЭДаѵЕггог ; 
ргосебиге ЭДаѵКеасІуЬіпе ; 
ргосебиге ЭДаѵРоЬесІа; 


Которые выглядят так: 


//====================== ЗВУКОВЫЕ ЭФФЕКТЫ 

//ОШИБКА! 

ргосесіиге ТРогшІ . ЮаѵЕггог ; 

Ьедіп 












іі поЬ зЪЬЗоипс! . Бошп ЬЬеп ехіЬ; 

//воспроизвести звуковой эффект: 

зпсІРІауЗоипсІ ( ' шѵ\еггог . маѵ ’ , ЗЫВ_АЗУЫС ог ЗЫВ_ЕІЪЕЫАМЕ) ; 
епсі; 

//РЯД РЕШЁН! 

ргосесіиге ТРогтаІ. ЮаѵКеасіуЪіпе ; 

Ьедіп 

іі пор зЬРЗоипс! . Бомп РНеп ехір; 

зпсІРІауЗоипсІ ( 1 ЭДаѵ\Кеас1уЬіпе . маѵ 1 , ЗЕВ_АЗтаС ог ЗЕО_ЕІЬЕЕАМЕ) ; 
епсі; 

//ЗАДАЧА РЕШЕНА! 

ргосесіиге ТРогшІ. ЮаѵРоЪесіа ; 

Ьедіп 

іі пор зЬРЗоипс! . Рошп РНеп ехір; 

зпсІРІауЗоипсІ ( ' ЭДаѵ\роЪес1а . маѵ' , ЗНО_АЗтаС ог ЗЕО_ЕІЬЕЕАМЕ); 
епсі; 


Все звуковые файлы хранятся в папке \Ѵаѵ, которая находится в той же 
папке (ох, уж эти папки!), что и выполняемый файл программы. Но вы мо¬ 
жете засунуть эту музыку и куда подальше. Только не забудьте указать 
программе путь к ней, чтобы не вышла по вашему велению сказочная ис¬ 
тория, в которой герою предлагалось пойти туда не знаю куда. 

Если вам этого звукового сопровождения (п)оказалось мало (а вдруг вы 
меломан), то вы можете добавить сколько угодно своих эффектов и рас¬ 
ставить их в программе на каждом шагу. Тогда при решении задачи у вас 
не только глаза вылезут, но и ушки завернутся! 

Но музыку, даже самую противную, любят не все, поэтому её услышит 
только тот, кто по неосторожности нажмёт кнопку зЪіЗоигиі да так и оста¬ 
вит её без присмотра. 

И вот условия задачи проверены, вся цифирь оказалась на месте, и нам уже 
не отвертеться от решения оной задачи. Сейчас мы сделаем много лишне¬ 
го, что, однако, необходимо нам для отыскания общего алгоритма реше¬ 
ния любых японских кроссвордов. 

Давайте заставим компьютер выполнять все Золотые правила. 

Они достаточно просты, и, конечно, каждый помнит их назубок. 

1. Ряды, в которых есть нулевые группы, можно сразу закрасить белым. Процедура 
Тезііпдіего с лёгкостью сделает то, с чего мы начинали решение задачи-примера. 
Она перебирает все ряды чисел в числовых полях и ищет в них нули. Найдя такой 
ряд, она отмечает его как решённый (статус такого ряда, как вы помните, зіОгееп), 
окрашивает все клетки ряда в белый цвет и, наконец, считает разгаданные клетки 
(их число хранится в переменной НеасІуСеІІз). Так как эти операции очень просты и 
хорошо известны, то вам легко будет понять их действие в программе. Потом вы 




можете и не пользоваться этой процедурой, так как общий алгоритм решения задачи 
обойдётся и без неё. С другой стороны, она ничуть и не мешает. 


//отмечаем пустые строки 

ргосесіиге ТезЬіпд2его ; 

ѵаг 

і, ^, п: іпРедег; 

Ьедіп 

//проверяем верхнее числовое поле: 

Гог і:= 0 Ро Р0ЪЕ_^ЮТН-1 сіо 
//проверяем каждый столбец: 

Рог ] := 0 іо тазСоізРІит [ і,-1 ] .Жші-1 сіо 
Ьедіп 

ІР (тазСоізЫит [і, ^ ] . зііит = '0') РЬеп //- нашли 
Ьедіп 

{з:='Есть 0 в столбце ’+ іпРРозРг(і+1)+'!'; 
арріісаРіоп .МеззадеВох (РСЬаг(з),ЕАМЕ_РКОС, МВ_ОК);} 

//этот столбец решён: 

тазСо1зЕ[ит [і,-1] . ЗРаРизСгоир : = зРСгееп; 

//закрашиваем столбец поля белым цветом: 

Рог п:= 0 Ро Р0ЪЕ_НЕІСНТ-1 сіо 
Ьедіп 

ІР тазРоіе [і , п] =ЫІМ_СРАУ РЬеп //- эти клетки разгаданы? 
Ьедіп 

тазРоіе [і,п] := ШМ_ѴШІТЕ; 
іпс (КеасІуСеІІз) 
епсі; 
епсі; 
епсі; 
епсі; 

//проверяем левое числовое поле: 

Рог і:= 0 Ро Р0ЪЕ_НЕІСНТ-1 сіо 
//проверяем каждую строку: 

Рог ^:= 0 Ро тазКомзЫшп [-1 , і] . пит-1 сіо 
Ьедіп 

ІР (тазВ.омзЕ[ит [^ , і] . зЫит = ' 0 ' ) РЬеп //- ашли 
Ьедіп 

//эта строка решена: 

тазВомзРГшп [-1 , і] . ЗРаРизСгоир := зРСгееп; 

{з: = 'Есть 0 в строке ’+ іпРРозРг(і+1)+'!’; 
арріісаРіоп .МеззадеВох (РСЬаг(з), ЫАМЕ_РР.ОС, МВ_ОК);} 
//закрашиваем строку поля белым цветом: 

Рог п:= 0 Ро РОЪЕ^ЮТН-1 сіо 
Ьедіп 

ІР тазРоіе [п, і] =ЫІМ_СРАУ РЬеп //- эти клетки разгаданы? 
Ьедіп 

тазРоіе [п, і] := ШМ_ШІТЕ; 
іпс (КеасіуСеІІз) 
епсі; 
епсі; 
епсі; 
епсі; 

ІпѵаіісІаРеСгісІз; 
епсі; // ТезРіпдЕего 





2. По Правилу 2, ряды, в которых есть число, равное размеру поля, можно сразу за¬ 
красить чёрным. Кодируем Правило 2 аналогично предыдущему. Единственное от¬ 
личие - мы должны проверить, не «накладываются» ли чёрные клетки на белые (они 
могли появиться после выполнения первого Правила). Если это так, то в условии 
задачи имеются ошибки, решить её невозможно, а функция возвращает значение 
Гаізе. 


//отмечаем полные строки 

^ипсЬіоп ТезЬіпдРиІІЪіпе (): Вооіеап; 

ѵаг 

і, п: іпРедег; 

Ьедіп 

КезиІР: = ТІШЕ; 

//проверяем верхнее числовое поле: 

Гог і:= 0 Ро РОЬЕ_ЭДІЭТН-І сіо 

ІР тазСоІзЫиш[і , 0].Ыит = РОЬЕ_НЕІСНТ РЬеп //нашли 
Ьедіп 

//з:='Есть полный столбец ' + ІпРРозРг (і + 1) + ' ! '; 

//аррІісаРіоп .МеззадеВох (РСЬаг (з) ,ЕАМЕ_РР.ОС, МВ_ОК) ; 
//закрашиваем столбец поля чёрным цветом: 

Рог п:= 0 Ро Р0ЬЕ_НЕІСНТ-1 сіо 
Ьедіп 

ІР тазРоіе [і, п] <>ШМ_СВАУ РЬеп //- эти клетки уже разгаданы? 
Ьедіп 

з: = 'Неверные числа в столбце '+ іпРРозРг (і + 1)+#10#13+ 

'и строке ’ + ІпРРозРг(п+1) 

арріісаРіоп.МеззадеВох(РСЬаг(з), ЫАМЕ_РВ.ОС, МВ_ОК); 

Р.ези1Р:= ЕАЬЗЕ; 
ехір 
епсі 
еізе 
Ьедіп 

тазРоіе [і,п] := ШМ_ВЬАСК; 
іпс (КеасІуСеІІз) 
епсі; 
епсі; 

//этот столбец решён: 

тазСоІзЫит[і,-1]. ЗРаРизСгоир := зРСгееп; 
епсі; 

//проверяем левое числовое поле: 

Рог і:= 0 Ро Р0ЬЕ_НЕІСНТ-1 сіо 

ІР тазКо^зЫит [ 0, і] .Ыит = РОЪЕ_Ѵ\МОТН РЬеп //- нашли 
Ьедіп 

//з:='Есть полная строка ' + ІпРРозРг (і + 1) + '!'; 

//арріісаРіоп .МеззадеВох (РСЬаг (з) ,ЕАМЕ_РР.ОС, МВ_ОК) ; 
//закрашиваем строку поля чёрным цветом: 

Рог п:= 0 Ро Р0ЬЕ_ЭДІ0ТН-1 сіо 
Ьедіп 

ІР тазРоіе [п, і] =ШМ_ѴШІТЕ РЬеп //- эта клетка белая? 

Ьедіп 

з:='Неверные числа в строке ’+ ІпРРозРг(і+1)+#10#13+ 

'и столбце ' + ІпРРозРг(п+1) +'!’; 

аррІісаРіоп .МеззадеВох (РСЬаг(з),ЕАМЕ_РВОС, МВ_ОК); 

КезиІР:= ЕАЬЗЕ; 
ехір 
епсі 




еізе ІГ шазРоІе [п, і] =ыим_СВАУ ЬНеп//эта клетка серая? 
Ьедіп 

шазРоІе[п,і]:= ШМ_ВЬАСК; 
іпс (РеасІуСеІІз) 
епсі; 
епсі; 

//эта строка решена: 

тазКомзЫшп [-1,і] .ЗЬаЬизСгоир:= зЬСгееп; 
епсі; 

ІпѵаіісіаЬеСгісіз; 
епсі; // ТезЬіпдЕиІІЬіпе 


Судьбина у этой функции тоже горькая - как пример перевода правил с русского 
языка на дельфийский она ещё ничего себе, но программе совершенно не нужна. 

3. По Правилу 3, мы отыскиваем ряды с полными суммами и закрашиваем клетки 
всех групп чёрным, а между ними по одной клетке - белым. При этом мы проверяем, 
не «накладываются» ли чёрные клетки на уже известные белые, и наоборот. Так как 
некоторые ряды уже могли быть решены раньше (тогда их ЗіаіизОгоир = зіОгееп), то 
их мы пропускаем. Не забываем подсчитывать решённые клетки (их количество рав¬ 
но сумме серых клеток, которые были в разгаданном ряду). 

Для удобства введём две функции. Объявите их в разделе ргіѵаіе: 


ГипсЬіоп 

Се'ЬЫшпбгоир (Ъосаіііоп: 

ТРоІеЪосаРіоп; 

пЬіпе: іпРедег) : іп- 

■Ьедег ; 

^ипсѣіоп 

СеѣЬепСгоир (ЬосаРіоп: 

ТРо1еЪоса1:іоп; 

пЪіпе, пСгоир: іпРе- 

дег) : іп-Ьедег; 




Для них пригодится новый тип: 


//положение числового поля: слева, сверху 

Ъуре ТРоІеЬосаЪіоп^ (рІЬЕЕТ, рІТОР) ; 


Первая функция возвращает число групп в заданном ряду верхнего или левого по¬ 
лей, вторая - длину заданной группы: 


//ПОЛУЧИТЬ КОЛИЧЕСТВО ГРУПП В РЯДУ пЬіпе левого (ЪЕЕТ) или 
//верхнего (ТОР) числового поля 

:ЕипсЬіоп ТРогтІ . ѲеЬЫитѲгоир (ЬосаЬіоп : ТРоіеЬосаЬіоп; пЬіпе: іпЬедег): іп- 
Ьедег; 

Ьедіп 

сазе ЬосаЬіоп оГ 

рІЬЕЕТ: Вези1Ь:= гпазВомзЫигп [-1 , пЬіпе].Ыит; 
рІТОР: Вези1Ь:= тазСоізЫит[пЬіпе, -1].Ыит; 

еізе Вези1Ь:= -1; 
епсі; 
епсі; 

//ПОЛУЧИТЬ ДЛИНУ ГРУППЫ пСгоир В РЯДУ пЬіпе левого (ЬЕЕТ) или 
//верхнего (ТОР) числового поля 

ГипсЬіоп ТЕогтІ.СеЬЬепСгоир(ЬосаЬіоп: ТРоіеЬосаЬіоп; пЬіпе, пСгоир: іпЬе- 
дег) 










: іпРедег; 

Ьедіп 

сазе ЪосаРіоп оР 

рІЬЕЕТ: Кези1Р:= тазКомзЫшп[пСгоир , пЬіпе].Ыит; 
рІТОР: Кези1Р:= тазСоІзЫит [пЬіпе , пСгоир] .Ыит; 

еізе Кези1Р:= -1; 
епсі; 
епсі; 


Так как это правило значительно сложнее предыдущих, то и код получится подлин- 
неееее : 


//отмечаем строки с полными суммами 

^ипсРіоп ТезРіпдРиІІЗит () : Вооіеап; 

ѵаг 

і, ^, п, к, зит: іпРедег; 

Ьедіп 

Кези1Р:= ТКЬЕ; 

//проверяем верхнее числовое поле: 

Рог і: = 0 Ро РОЬЕ_Ѵ\Л ЬТН-І сіо 

ІР тазСоІзЬит [ і,-1 ] . ЗРаРизСгоирО зРСгееп РЬеп //- столбец ещё не решён 
Ьедіп 

зшп:= 0 ; 

//проверяем каждый столбец 
//находим сумму для каждого столбца: 

Рог ^: = 0 Ро тазСоІзЫшп [ і ,-1 ] . Ышп-1 сіо 
зит:= зит + тазСоізЫит [ і , ^ ] . Ыит; 
зит:= зит + тазСоізЫит [ і , -1].Ыит-1; 

ІР зит= РОЬЕ_НЕІСНТ РЬеп //- нашли 
Ьедіп 

{з:='Есть полная сумма в столбце ’+ іпРРозРг (і+1 ) + ’ ! ’/ 
арріісаРіоп .МеззадеВох(РСЬаг(з) , ЫАМЕ_РВОС, МВ_ОК);} 

//этот столбец решён: 

тазСоІзЬит [ і , -1].ЗРаРизСгоир:= зРСгееп; 

//закрашиваем столбец поля: 
к: = 0 ; 

Рог п:= 0 Ро тазСоізЫит [ і ,-1 ] . Ыит-1 сіо //-по всем группам 
Ьедіп 

//закрасить группу чёрным: 

Рог 3 := к Ро к+ тазСоІзЬит [ і , п].Ыит-1 сіо 
Ьедіп 

ІР тазРоіе[і^]= МРПУМ/ШІТЕ РЬеп //эта клетка белая? 

Ьедіп 

з: = 'Неверные числа в столбце ’+ ІпРРозРг ( і + 1 )+#10#13 + 

'и строке ’ + ІпРРозРг (^+1) 

арріісаРіоп .МеззадеВох(РСЬаг(з),ЫАМЕ_РВОС, МВ_ОК); 

Кези1Р:= ЕАЬЗЕ; 
ехіР 
епсі 

еізе ІР тазРоІе [ і, з ] =ЕІІМ_СКАУ РЬеп//- эта клетка серая? 

Ьедіп 

тазРоІе[і,Л:= ШМ_ВЬАСК; 
іпс (РеасіуСеІІз) 
епсі; 

епсі; // Рог ^ 

//поставить белую клетку между группами: 

ІР п < СеРЬшпСгоир(рІТОР , і)—1 РЬеп 
Ьедіп 

к:= к+ тазСоІзЫит[і , п].Ьит; 

ІР тазРоІе[і , к] = ЫЬМ_ВЬАСК РЬеп //эта клетка чёрная? 

Ьедіп 






з:='Неверные числа в столбце ’+ ІпРРозРг ( і+1 )+#10#13+ 

'и строке ’ + ІпРРозРг (к+1) 

арріісаРіоп .МеззадеВох(РСЬаг(з),ЫАМЕ_РВОС, МВ_ОК)/ 

Вези1Р:= ЕАЬЗЕ; 
ехіР 
епсі 

еізе ІР тазРоІе[і , к] =ѢШМ_СВАУ РЬеп//- эта клетка серая? 

Ьедіп 

тазРоіе[і, к] := ШМ_ШІТЕ; 
іпс (РеасіуСеІІз) ; 
епсі; 
іпс (к) ; 

епсі; //п < СеРМшпСгоир (рІТОР , і)-1 
епсі; // Рог 

епсі; //ІР зшп= РОЬЕ_НЕІСНТ 
епсі; //ІР тазСоізЕиш [ і,-1 ] . ЗРаРизСгоирО зРСгееп 

//проверяем левое числовое поле: 

Рог і: = 0 Ро Р0ЬЕ_НЕІСНТ-1 сіо 

ІР тазВомзЫит[-1,і].ЗРаРизСгоирО зРСгееп РЬеп //- строка ещё не решена 
Ьедіп 

зигп:= 0; 

//проверяем каждый строку 
//находим сумму для каждой строки: 

Рог ^:= 0 Ро тазВомзЫит [-1 , і] .Ыит-1 сіо 
зит:= зит + тазВомзЫит [^, і].Ыит; 
зит: = зит + тазВомзЫит[-1 , і].Ыит-1; 

ІР зит= Р0ЬЕ_М10ТН РЬеп //нашли 
Ьедіп 

{з:='Есть полная сумма в строке ’+ іпРРозРг (і + 1) + ’ ! ’; 
арріісаРіоп .МеззадеВох (РСЬаг(з) ,ЫАМЕ_РВ0С, МВ_0К);} 

//эта строка решена: 

тазВомзЫит[-1 , і]. ЗРаРизСгоир := зРСгееп; 

//закрашиваем строку поля: 

к : = О.- 

Рог п:= 0 Ро тазВомзЫит [-1, і] .Ыит-1 сіо //- по всем группам 
Ьедіп 

//закрасить группу чёрным: 

Рог ;] : = к Ро к+ тазВомзЫит [п, і ] . Ыит-1 сіо 
Ьедіп 

ІР тазРоіе [^ , і] = ШІМ_ѴШІТЕ РЬеп //- эта клетка белая? 

Ьедіп 

з:='Неверные числа в строке ’+ ІпРРозРг(і+1)+#10#13+ 

'и столбце ' + ІпРРозРг (^+1) +’!’; 

арріісаРіоп.МеззадеВох(РСЬаг(з),ЫАМЕ_РВОС, МВ_ОК); 

Вези1Р:= ЕАЬЗЕ; 
ехіР 
епсі 

еізе ІР тазРоіе [^ . і] =ЫЬМ_СВАУ РЬеп//- эта клетка серая? 

Ьедіп 

тазРоіе [^ , і ] : = ШМ_ВЬАСК; 
іпс (РеасіуСеІІз) 
епсі; 

епсі; // Рог ^ 

//поставить белую клетку между группами: 

ІР п< СеРЫшпСгоир (рІЬЕЕТ, і)-1 РЬеп 
Ьедіп 

к:= к+ гпазВомзЫшп [п, і ] . Ыит; 

ІР тазРоіе[ к. і]= ЫЬМ_ВЬАСК РЬеп //- эта клетка чёрная? 

Ьедіп 

з:='Неверные числа в строке ’+ ІпРРозРг(і+1)+#10#13+ 

'и столбце' + ІпРРозРг(к+1) +'!'; 

арріісаРіоп.МеззадеВох(РСЬаг(з),ЫАМЕ_РВОС, МВ_ОК); 




Кези1Е:= ЕАЬЗЕ; 
ехіЕ 
епсі 

еізе ІЕ шазРоІе[ к, і]=ЫІШ_СВАУ ЕЬе п//- эта клетка серая? 
Ьедіп 

шазРоІе [к, і] := ШМ_ШІТЕ; 
іпс (РеасіуСеІІз) ; 
епсі/ 
іпс (к) / 

епсі; //п< СеЕЫшпСгоир (рІЬЕЕТ, і)-1 
епсі/ // Рог 

епсі/ / / і Е зшп= РОЬЕ_НЕІСНТ 
епсі/ //ІР тазВомзЫит [ і,-1 ] . ЗЕаЕизСгоирО зЕСгееп 
ІпѵаІісіаЕеСгісіз; 
епсі/ //ТезЕіпдЕиІІЗит 


Эту функцию желательно оставить в программе, она может пригодиться в начале 
решения задачи. Но программа справится с любым кроссвордом и без неё. 

4. По Правилу 4, если единственная группа в ряду длиннее половины ряда, то часть 
ряда можно закрасить чёрным. Функция Тезііпді-опдипе последовательно переби¬ 
рает все ряды, и, если находит неразгаданный ряд и в нём единственное число, 
большее половины длины соответствующего ряда, то закрашивает часть клеток 
чёрным цветом. Как определить эти клетки, мы уже подробно рассматривали рань¬ 
ше. 


//отмечаем длинные строки 

^ипсЕіоп ТезЕіпдЬопдЬіпе (): Вооіеап; 
ѵаг 

і, зиш: іпЕедег; 

Ьедіп 

ВезиІЕ: = ШЕ; 

//проверяем верхнее числовое поле: 

Еог і: = 0 Ео Р0ЬЕ_МЮТН-1 сіо 

ІЕ тазСоІзЫшп [і,-1].ЗЕаЕизСгоирО зЕСгееп ЕЬеп //- столбец ещё не решён 
Ьедіп 

//в ряду должна быть одна группа: 

ІЕ СеЕЫитСгоир(рІТОР, і)=1 ЕЬеп 
Ьедіп 

зшп:= СеЕЬепСгоир(рІТОР, і, 0)*2; 

ІЕ зигп - РОЬЕ_НЕІСНТ >0 ЕЬеп //нашли 
Ьедіп 

{з: = 'Длинный столбец ’+ ІпЕЕозЕг(і + 1) + ’!'; 

з: = з+’Ьед= ’+іпЕЕозЕг((РОЬЕ_НЕІСНТ-СеЕЬепСгоир(рІТОР, і, 0))); 
арріісаЕіоп .МеззадеВох (РСЬаг(з),ЫАМЕ_РВОС, МВ_ОК)/} 

//закрашиваем часть столбца поля чёрным: 

Еог ^:= (РОЬЕ_НЕІСНТ- СеЕЬепСгоир(рІТОР, і, 0)) 

Ео СеЕЬепСгоир (рІТОР, і, 0)-1 сіо 

Ьедіп 

ІЕ тазРоіе[і,^]= ЫЕПУМ/ШІТЕ ЕЬеп //- эта клетка белая? 

Ьедіп 

з: = ' Неверные числа в столбце ’+ ІпЕЕозЕг (і + 1)+#10#13 + 

'и строке ' + ІпЕЕозЕг (^+1) 

арріісаЕіоп.МеззадеВох(РСЬаг(з),ЫАМЕ_РРОС, МВ_ОК); 

Вези1Е:= ЕАЬЗЕ; 
ехіЕ 
епсі 

еізе ІЕ тазРоіе[і,^] =Ы1Ш_СВАУ ЕЬеп//- эта клетка серая? 

Ьедіп 

тазРоіе [і, □ ] : = ШМ_ВЬАСК; 






іпс (КеасіуСеІІз) 
епсі; 

епсі; // Еог ^ 

епсі/ // зиш - РОЬЕ_НЕІСНТ >0 
епсі; // ІЕ СеЕЫшпСгоир(ТОР, і)=1 
епсі/ //ІЕ тазСоІзЫиш [ і,-1 ] . ЗЕаЕизОгоирО зЕСгееп 
//проверяем левое числовое поле: 

Еог і: = 0 Ео РОЬЕ_НЕІСНТ-1 сіо 

ІЕ тазКомзЫит[-1,і].ЗЕаЕизОгоирО зЕСгееп ЕЬеп //- столбец ещё не решён 
Ьедіп 

//в ряду должна быть одна группа: 

ІЕ СеЕЫитСгоир(рІЬЕЕТ, і)=1 ЕЬеп 
Ьедіп 

зит:= СеЕЬепСгоир(рІЬЕЕТ, і, 0)*2; 

ІЕ зиш - РОЬЕ_ШОТН >0 ЕЬеп //нашли 
Ьедіп 

{з: = ! Длинная строка ’+ іпЕЕозЕг (і + 1) + ' ! '/ 

з:= з+’Ьед= ’ЕіпЕЕозЕг((РОЬЕ_ШОТН-СеЕЬепСгоир(рІЬЕЕТ, і, 0)))/ 
аррІісаЕіоп. МеззадеВох (РСЬаг(з) ,ЫАМЕ_РКОС, МВ_ОК)/} 

//закрашиваем часть строки поля чёрным: 

Еог ^:= (РОЬЕ_ШОТН- СеЕЬепСгоир(рІЬЕЕТ, і, 0)) 

Ео СеЕЬепСгоир (рІЬЕЕТ, і, 0)-1 сіо 

Ьедіп 

ІЕ тазРоІе [^ , і] = НЕПУЫ/ШІТЕ ЕЬеп //эта клетка белая? 

Ьедіп 

з:=’Неверные числа в строке ’+ ІпЕЕозЕг(і+1)+#10#13+ 

'и столбце ’ + ІпЕЕозЕг (^+1) +’!’; 

аррІісаЕіоп.МеззадеВох(РСЬаг(з),ЫАМЕ_РКОС, МВ_ОК)/ 

Рези1Е:= ЕАЬЗЕ; 
ехіЕ 
епсі 

еізе ІЕ тазРоІе [^ , і] =ШМ_СКАУ ЕЬеп//- эта клетка серая? 

Ьедіп 

тазРоІе [^ , і] := ШМ_ВЬАСК; 
іпс (КеасіуСеІІз) 
епсі; 

епсі/ // Еог ^ 

епсі/ // зиш - РОЬЕ_ШОТН >0 
епсі/ // ІЕ СеЕЫшпСгоир(ТОР, і)=1 
епсі/ //ІЕ гпазКомзЫигп [ і,-1 ]. ЗЕаЕизОгоирО зЕСгееп 
ІпѵаіісіаЕеСгісіз / 
епсі/ // ТезЕіпдЬопдЬіпе 


Безусловно, эта функция самая «прогрессивная» из всей четвёрки, но и она - только 
шаг к главному алгоритму. Теперь мы знаем, как перевести «человеческие» правила 
на компьютерный язык. Можно было бы продолжить наши упражнения дальше и 
научить компьютер пользоваться Железными правилами, но мы этого делать не 
станем, а лучше подумаем, что общего у всех Правил и как этим воспользоваться. 




Мандрагора, или Зри в корень! 


Возьмите чистую посуду... 

Из анекдота про мужика, опрометчиво 
взявшегося за стряпню 

Энэ бэнэ рес! 

Квинтер финтер жес! 

Энэ бэнэ ряба, 
Квинтер финтер жаба... 

Незнайкина считалочка 

...Это первое. Второе... 

Ельциновская риторика 

Главную идею алгоритма решения японских кроссвордов можно вывести 
непосредственно из Правил: если при всех возможных расстановках групп в 
ряду какие-либо клетки всегда оказываются чёрными (или белыми), то они 
таковыми и являются на самом деле. Например, Правила 1-3 потому и 
верны, что клетки можно расставить единственным способом. Правило 4 
легко проверить, если выписать все расстановки групп в ряду. Но для од¬ 
ной группы всё настолько очевидно, что достаточно посмотреть положе¬ 
ние группы в крайних положениях (об этом было рассказано достаточно 
подробно]. Случай с двумя группами в ряду также обсуждался, но он уже 
не столь очевиден. А в реальных задачах число групп доходит до десятка и 
более в одном ряду. Проверить все расстановки вручную очень трудно, по¬ 
этому приходится «изобретать» и другие правила, которыми проще поль¬ 
зоваться при ручном решении японских головоломок. Компьютер же, 
напротив, «любит» не думать, а перебирать варианты расстановок. При¬ 
чём делает он это настолько быстро, что ему вообще не нужны никакие 
правила. 

Итак, первое, чему мы должны научить компьютер, - это находить все рас¬ 
становки групп в ряду. Этот комбинаторный алгоритм очень прост: 

1. Размещаем все группы чёрных клеток в их крайнем левом положении, а 
все остальные клетки ряда окрашиваем в белый цвет (в программе это 
делается иначе: сначала все клетки красим белым, а потом ставим чёрные 
группы; результат, естественно, от перемены мест слагаемых не изме¬ 
нится). Так мы получаем первую расстановку. 

2. Пока это возможно, сдвигаем последнюю группу вправо на одну клетку. 
Каждый сдвиг даёт новую расстановку. 


ОеІрНі в примерах, играх и программах 


3. Если это возможно, сдвигаем предыдущую группу на одну клетку вправо, а 
все следующие выставляем через одну белую клетку за ней. Получаем 
ещё один вариант расстановки и переходим к пункту 2. Иначе - повторяем 
это действие. 


Проиллюстрируем действие алгоритма на примере. Пусть длина ряда рав¬ 
няется 10 клеткам. В нём содержится 3 группы чёрных клеток, длиной 3, 2 
и 1 клетка, соответственно. Тогда все расстановки групп легко получить, 
следуя алгоритму (Рис. 3.35). 


п. 1 Вариант 1 
п. 2 Вариант 2 
п. 2 Вариант 3 
п. 3 Вариант 4 
п. 2 Вариант 5 
п. 3 Вариант 6 
п. 3 Вариант 7 
п. 2 Вариант 8 
п. 3 Вариант 9 
п. 3 Вариант 10 



Рис. 3.35. Черно-белая комбинаторика 


Легко заметить, что одна клетка ряда (третья слева) при всех расстановках 
групп чёрная, поэтому мы можем однозначно утверждать, что она именно 
чёрная. Цвет остальных клеток пока определить нельзя. 

Так как не разгаданные клетки мы обозначаем серым цветом, то итоговый 
(или результирующий) ряд должен быть таким (Рис. 3.36). 


Рис. 3.36. Одна клетка ряда решена 

То есть одну клетку ряда мы смело можем (и должны!) выкрасить в чёрный 
цвет. 

В процедуре ТезііпдОпеЫпе, реализующей описанный алгоритм, чтобы не 
запоминать все расстановки групп (их может оказаться очень много), сна¬ 
чала за итоговый ряд принимается первая расстановка (вариант), а затем 
каждая следующая (текущая) сравнивается с ней: если цвет клеток в оди¬ 
наковых позициях у итоговой и текущей расстановок не совпадают, то 
клетка не может быть разгадана, то есть в итоговом ряду она серая, иначе 



































цвет клетки в итоговом ряду не изменяется. Проверьте - результат ока¬ 
жется в точности такой же, что и в примере. 

Недостаток нашего алгоритма в том, что он не учитывает уже разгаданные 
клетки в ряду. Допустим, что в разобранном примере разгадана начальная 
клетка - она белая. Тогда первые 6 расстановок групп можно проигнори¬ 
ровать, ведь в них начальная клетка чёрная. Отсюда следует вывод : для 
каждой расстановки нужно проверять, совместима ли она с уже известны¬ 
ми клетками ряда. Если чёрная клетка текущей расстановки «накладыва¬ 
ется» на белую клетку исходного ряда (того, что находится на игровом по¬ 
ле) или, наоборот, белая клетка накладывается на чёрную, то этот вариант 
расстановки не годится. 

То же, но в картинках (Рис. 3.37). 


-исходный ряд 


- расстановки групп в ряду, 
учитывающие известную клетку 
в исходном 


- итоговый ряд 


Рис. 3.37. Избегайте накладок! 


Из этих рисунков видно, что даже одна известная клетка в исходном ряду 
позволяет отгадать значительно больше клеток, чем в совершенно «не¬ 
тронутом», а число вариантов размещения групп сократилось до четырёх. 

Если окажется, что разместить группы в ряду можно единственным спосо¬ 
бом ( пѴаг=1 ), то найдено решение для всего ряда. Если же ни одна из рас¬ 
становок групп ( пѴаг= 0 ) не совместима с уже разгаданными клетками, то 
этот ряд не может быть решён. Такое положение возникает, когда в усло¬ 
вии задачи имеется ошибка или ранее мы сделали неверное предположе¬ 
ние о цвете одной из клеток (об этом мы поговорим немного погодя). 

Функция ТезйпдОпеІіпе как раз и возвращает число возможных вариантов 
расстановки групп в ряду: 


//- ищем подходящие комбинации клеток в ряду -- 

^ипс'Ьіоп ТезѣіпдОпеІііпе (пСгоир : іпбедег; 

ЬепСгоир: аггау оі: іпбедег; 
ЬепЬіпе : іпбедег; 
шазЗоигсе: аггау оі: іпбедег; 










































ѵаг тазКезиІі: аггау оі іпіедег) : іпіедег; 

//функция возвращает количество возможных расстановок групп в заданном ряду 
//пСгоир: іпіедег; // число (0..) групп в ряду 

//ЬепСгоир: аггау [ 0 .. МАХ_СЕЬЬЖ1М-1 ] оі іпіедег; //длина группы 
//ЬепЬіпе: іпіедег; //длина ряда 

//шазЗоигсе: аггау [ 0 .. 100 ] оі: іпіедег; //исходная полоска 

//тазКезиІі : аггау [ 0 .. 100 ] оі: іпіедег; //итоговая полоска 

ІаЪеІ МоѵеЬазіСгоир, ЕехіМоѵе, РгесіМоѵе; 
ѵаг 

ріг: іпіедег; // номер (0..пСгоир-1) сдвигаемой группы 

роз: аггау[0..МАХ_СЕЬЬШІМ-1] оі іпіедег; //позиция первой клетки группы 
пѴаг: іпіедег; //число найденых вариантов полосок 

шазѴаг: аггау[0..100] оі іпіедег; //очередная полоска 
і: іпіедег; 

// проверить , может ли группа разместиться в ряду 
Іипсііоп ЕхашіпеРоз(п: іпіедег): Вооіеап; 

//п - номер (0..) группы 
Ьедіп 

Рези11:= ЕАЬЗЕ; 

іі роз [п]+Ьеп0гоир[п]<=ЬепЬіпе іЬеп Рези11:= ТКЛЕ; 
епЬ; 

//записать расстановку: 

Іипсііоп МгііеѴагіапі(): Вооіеап; 
ѵаг і, ^: іпіедег; 

Ьедіп 

Рези11:= ТВЬЕ; 

//выставить белые клетки по длине ряда: 

Іог і:= 0 Іо ЬепЬіпе-1 сіо шазѴаг [і] := ЫІІМ_Ѵ\[НІТЕ; 

//расставить все группы чёрных клеток: 

Іог і:= 0 Іо пСгоир-1 сіо 

Іог ^:= роз[і] Іо роз [ і ]+ЬепСгоир [ і ]-1 сіо 
шазѴаг [:П:= ЕиМ_ВЬАСК; 

//скопировать первую расстановку в итоговую полоску: 
іі пѴаг= 1 ІЬеп 

Іог і:= 0 Іо ЬепЬіпе-1 сіо шазРезиІІ [і] : = шазѴаг [і] ; 

//проверить, ложится ли полоска на уже имеющуюся на поле - 
//чёрная клетка текущей полоски не должна накладываться на 
//белую клетку поля, а белая - на чёрную: 

Іог і:= 0 Іо ЬепЬіпе-1 сіо 

іі (шазѴаг [і] О шазЗоигсе [і] ) апсі (шазЗоигсе [і] О ШМ_СВАУ) ІЬеп 
Ьедіп 

Рези11:= Еаізе; ехіі;//- не ложится! 
епсі; 

//скорректировать итоговую полоску - если цвета клеток итоговой 
//и текущей полосок в одинаковых позициях разные, то 
//цвет клетки серый, иначе - без изменений 
//сравниваем полоски по всей длине: 
іог і:= 0 іо ЬепЬіпе-1 сіо 

іі (шазѴаг[і]<> шазРезиІІ[і]) ІЬеп шазРезиІІ[і]:= ШМ_СВАУ; 
епсі; // МгііеѴагіапі 

Ьедіп 

//номера начальных клеток полосок записываем 
//в массив роз: 
роз [ 0] := 0; 

Еог і:= 1 іо пСгоир-1 сіо роз[і]:= роз[і-1]+ ЬепОгоир [ і-1 ]+1 ; 

//начальная расстановка групп: 
пѴаг: =1 ; 

іі Ѵ\ігііеѴагіапі= ЕАЬЗЕ ІЬеп пѴаг:= 0; 

//начинаем сдвигать последнюю группу - 
МоѵеЬазіОгоир: 
ріг:= пСгоир-1; 




//передвигаем группу в след, клетку - 
ЫехЬМоѵе : 

Іпс (роз [рЬг ] ) ; 

ІЬ ЕхашіпеРоз (рЬг) ЬЬеп //можно сдвигать 
Ьедіп 

іпс(пѴаг ); 

//записать расстановку: 

ІЬ МгіЬеѴагіапЬ= ЕАЬЗЕ ЬЬеп Ьес(пѴаг); 
доЬо МехЬМоѵе; //- сдвигаем до края 
епсі; 

//сдвигать нельзя --> 

//переходим к предыдущей группе: 

РгесіМоѵе : 

сіес (рЬг) ; 

ІЬ рЬг<0 ЬЬеп //- все группы сдвинуты до края 
Ьедіп 

{з:='Все варианты: ’+ іпЬЬозЬг(пѴаг ); 

арріісаЬіоп .МеззадеВох(РСЬаг(з),ЫАМЕ_РВОС, МВ_ОК)/} 

Вези1Ь:= пѴаг/ 
ехіЬ 
епсі; 

//ищем дальше --> 

//перемещаем начало текущей группы: 
іпс (роз[рЬг]) ; 

//проверяем: 

іі ЕхашіпеРоз (рЬг)= ЕАЬЗЕ ЬЬеп 
Ьедіп 

{з:='Все варианты: '+ іпЬЬозЬг(пѴаг )/ 

арріісаЬіоп .МеззадеВох(РСЬаг(з) , ЫАМЕ_РРОС Л МВ_ОК)/} 

Рези1Ь:= пѴаг; 
ехіЬ 
епсі; 

//расставляем следующие группы сразу после текущей: 

Еог і:= рЬг+1 Ьо пСгоир-1 Ьо 
Ьедіп 

роз[і] := роз[ і-1 ]+ЬепСгоир[ і-1 ]+1; 

//проверить: 

іі ЕхашіпеРоз ( і )= ЕАЬЗЕ ЬЬеп //- для след, групп не хватает места 
доЬо РгесіМоѵе; 

епсі; 

//всё нормально - записать новую расстановку: 
іпс(пѴаг); 

іі Ѵ\[гіЬеѴагіапЬ= ЕАЬЗЕ ЬЬеп сіес (пѴаг) ; 

//ищем след, растановку: 

СоЬо МоѵеЬазЬСгоир; 
епсі; // ЬипсЬіоп ТезЬіпдОпеЬіпе () 


Эта функция обрабатывает один ряд поля (его копия передаётся в массиве 
тазБоигсё). Рассмотрим работу ещё одной функции - ТеБІіпдВгаіп. Для 
каждого ещё не разгаданного ряда она вызывает ТезііпдОпеИпе, а затем 
анализирует её значение. Если оно равно 0, то ТезііпдВгаіп возвращает 
значение Раізе (не разгадана ни одна клетка], а N 0 Ѵаг устанавливает в Тгие 
(найден нерешаемый ряд]. Если значение равно 1, то ТезгіпдВгаіп возвра¬ 
щает значение Тгие, записывает разгаданные клетки ряда в массив тазРоІе 
и подсчитывает число известных клеток: 


//проверить, можно ли ещё поставить белые и чёрные клетки в ряд 
ЬипсЬіоп ТезЬіпдВгаіп (): Вооіеап; 






//— ТИПЕ, если разгадана хотя бы одна клетка 
ѵаг 

і , 3 , п: іпЕедег; 

пд: іпЕедег; 

ЬС: аггау [ 0 . . МАХ_СЕЬЫШМ-1 ] оЕ іпЕедег; //длина групп 
тазЗгс: аггау [0 . . 100] оЕ іпЕедег/ //исходная полоска 

тазРезиІЕ: аггау[0..100] оЕ іпЕедег; //итоговая полоска 

Ьедіп 

Рези1Е:= ЕАЬЗЕ; 

//проверяем верхнее числовое поле: 

Еог і: = 0 Ео РОЬЕ_МІЭТН-І сіо //- по ширине поля 
//если столбец ещё не решён --> 

ІЕ тазСоІзШлп [ і ,-1 ] . ЗЕаЕизСгоирО зЕСгееп ЕЬеп 
Ьедіп 

//число групп в ряду: 
пд:= СеЕЫитСгоир (рІТОР , і) ; 

//длина групп в ряду: 

Еог ^: = 0 Ео пд-1 сіо 1д[з]: = тазСоІзШдт [ і , з ] . пит; 
//скопировать ряд поля -> исходная полоска: 

Еог 3 : = 0 Ео РОЬЕ_НЕІСНТ-1 сіо тазЗгс[ 3 ]:= тазРо1е[і^]; 
//получить новую полоску (ряд) на поле: 

п:= ТезЕіпдОпеЬіпе (пд, 1д, РОЬЕ_НЕІСНТ, тазЗгс, тазРезиІЕ); 
//з:=’п= ’ + іпЕЕозЕг(п)+ ' (Столбец: ’+ іпЕЕозЕг(і); 
//аррІісаЕіоп .МеззадеВох(РСЬаг(з),ЫАМЕ_РРОС, МВ_ОК); 

//если нет ни одной подходящей растановки групп в ряду --> 
ІЕ п=0 ЕЬеп Ьедіп 
Рези1Е:= ЕАЬЗЕ; 

ЫоѴаг:= ТРЬЕ; 
ехіЕ 
епсі; 

//если имеется единственная расстановка групп в ряду --> 
//ряд решён: 

ІЕ п= 1 ЕЬеп тазСоІзЫит [ і ,-1].ЗЕаЕизСгоир:= зЕСгееп; 
//вывести итоговую полоску на поле: 

Еог з : = 0 Ео РОЬЕ_НЕІСНТ-1 сіо 
Ьедіп 

ІЕ (тазРоІе[і,з]= ШМ_СРАУ) апсі (тазРезиІЕ [ з ] <> ШМ_СРАУ) 
Ьедіп 

Рези1Е:= ТРЬЕ; 

//ещё 1 клетка разгадана: 
іпс (РеасіуСеІІз) ; 
тазРоІе[і,з]:= тазРезиІЕ[з]; 
епЬ 
епсі; 

ІпѵаІіЬаЕеСгісіз ; 

епЬ; // ІЕ тазСоІзЫит[і,-1].ЗЕаЕизСгоирО зЕСгееп 

//проверяем левое числовое поле: 

Еог і:= 0 Ео РОЬЕ_НЕІСНТ-1 сіо 
//- столбец ещё не решён -> 

ІЕ тазРомзЫшп [-1,і].ЗЕаЕизСгоирО зЕСгееп ЕЬеп 
Ьедіп 

//число групп в ряду: 

пд:= СеЕЫитСгоир(рІЬЕЕТ, і); 

Еог 3 := 0 Ео пд-1 сіо 1д [ □ ] : = гпазРомзЫигп [ з , і ] . пит; 

Еог 3 := 0 Ео РОЬЕ_ШОТН-1 сіо тазЗгс [ 3 ]:= тазРоІе [з , і] ; 
п:= ТезЕіпдОпеЬіпе (пд, 1д, РОЬЕ_ЭДЮТН, тазЗгс, тазРезиІЕ); 
//если нет ни одной подходящей растановки групп в ряду --> 
ІЕ п=0 ЕЬеп Ьедіп 
Рези1Е:= ЕАЬЗЕ; 

ЫоѴаг:= ТРЬЕ; 
ехіЕ 


ЕЬеп 




епсі; 

//если имеется единственная расстановка групп в ряду --> 

//ряд решён: 

іі п= 1 ёАеп тазКомзЫит [- 1 , і ] . ЗёаёизСгоир : = зіСгееп; 

//вывести итоговую полоску на поле: 

^ог ^ := 0 іо РОЬЕ_ѴЛ ЭТН-1 сіо 
Ьедіп 

іі (та зРоІе ^ і] = ШМ_СРАУ) апсі (тазКезиіі [^ ] <> ШМ_СКАУ) РАеп 
Ьедіп 

Кези1і:= ТЕЛЕ; 

//ещё 1 клетка разгадана: 
іпс (РеасіуСеІІз) ; 
та зРоІе : = тазРезиІЬ [ ^ ] ; 

епсі 

епсі; 

ІпѵаІісіаЬеСгісіз ; 

епсі; // іі тазКомзЫит [- 1 , і] . 5ЬаЬиз0гоир<> зЬСгееп 
епсі; //іипсЬіоп ТезЬіпдВгаіп () 


Если отвлечься от частностей, то алгоритм решения японских кроссвордов 
получился очень простым. Конечно, для ручного гадания он непригоден, 
так как придётся перебирать большое число расстановок групп, а вот для 
машинного - то что нужноі Так как здесь проводится полный перебор 
размещений групп, то любая задача будет неизбежно решена (или будет 
установлено, что она решений не имеет). «Слабым местом» алгоритма яв¬ 
ляется генерация всех размещений групп в ряду, даже если известно точ¬ 
ное положение некоторых из них (разгаданные группы). Это может приве¬ 
сти к тому, что задачи, имеющие длинные ряды и большое количество 
очень коротких групп (1-2 клетки), будут решаться несколько минут 
(обычно на это уходят секунды, причём и это время можно сильно сокра¬ 
тить, если убрать перерисовку полей во время решения задачи, правда, то¬ 
гда вам уже не удастся насладиться самим процессом решения). Впрочем, 
это не столько недостаток алгоритма, сколько изъян в самой задаче: хо¬ 
рошо сработанный кроссворд, как правило, имеет в рядах не более 5-7 
групп, поэтому ответ будет найден очень быстро. В откровенно слабых за¬ 
даниях встречаются ряды с десятком и более одноклеточных групп. Сде¬ 
ланы они наверняка не для компьютера, и нетрудно себе представить ад¬ 
ские муки разгадчика, часами отыскивающего места для этих групп, чтобы 
в итоге получить банального ёжика, раскрашенного, как шахматная доска. 
Если вы планируете самостоятельно составлять японские кроссворды, 
будьте добрее к людям, не мучайте их понапрасну ! 

Как я уже отмечал, этот алгоритм с лихвой перекрывает все написанные и 
не написанные ещё правила решения кроссвордов, поэтому в программе 
можно оставить только его, а функции, реализующие Правила, просто уда¬ 
лить. И хотя в этом нет никакой необходимости, но вы можете попытаться 
улучшитъ предложенный алгоритм. Например, если число серых клеток в 
итоговом ряду сравняется с числом таких клеток в исходном ряду, то нет 




смысла дальше перебирать варианты размещения групп - ни одну клетку 
ряда в этот раз разгадать не удастся. 

И нам осталось рассмотреть автоматическое решение задач в целом, то 
есть узнать, что происходит в программе после нажатия на кнопку зЪіВіагі. 


Магическая кнопка, или Первые аплодисменты 

Кто ищет, тот всегда найдёт. 
Из оптимистической песни 

В первую очередь, нужно изменить режим работы программы - 
5еі5іаіи5('П0ИСК'); Теперь все кнопки будут «знать», что программа занята 
важным делом, и не смогут ей помешать. Для удобства мы напишем не¬ 
большую процедуру. 


//УСТАНОВИТЬ СТАТУС ПРОГРАММЫ 

ргосесіиге ТРогшІ . Зе-ЬЗ-Ьаѣиз (з: зТгіпд) ; 
Ьедіп 

зТа1:из:= з; 

ЗСаСизВагІ.Рапеіз[5].СехС := з; 
аррІісаТіоп.РгосеззМеззадез; 
епсі; 


Не забудьте объявить её в разделе ргіѵаіе: 


ргосесіиге Зе-ЬЗ-Ьа-Ьиз (з: зРгіпд) ; 


Затем мы проверяем правильность данных задачи и подсчитываем число 
уже разгаданных клеток. Поначалу кажется, что этого и делать не нужно, 
ведь задачу мы ещё не решали, но не торопитесь - вы могли начать реше¬ 
ние вручную, а потом, отчаявшись, предоставили свою судьбу машине. 

Часть клеток можно разгадать, воспользовавшись Правилами, реализо¬ 
ванными в рассмотренных ранее функциях. 

На этом лирическая часть решения завершается, и начинаются трудовые 
будни функции ТезііпдВгаіп. Если она «опознала» хотя бы одну клетку, 
значит, ситуация на поле изменилась, и мы можем попытаться продви¬ 
нуться дальше в своём решении, опять же вызывая ТезііпдВгаіп. Так как 
решение может и затянуться (или вы просто передумаете решать кросс¬ 
ворд), то следует позаботиться о выходе из этой круговерти событий. Са- 






мый правильный способ - нажать кнопку зЬіЕіор, которая установит флаг 
выхода из процедуры. Ообъявите переменную так же, как и раньше: 


ЕІдЕхі-Ь: Ьоо1еап= Раізе; 


А уж если вы очень торопитесь, то просто закройте программу. 


//ОСТАНОВИТЬ РЕШЕНИЕ ЗАДАЧИ 

ргосесіиге ТРогшІ . зЬЕЗЕорСИск (Зепсіег : ТОЪ^есЬ); 

Ьедіп 

іЕ зЕаЕизО ' ПОИСК ' Ыіеп ехіЕ; 

ЕІдЕхіЕ:=Егие 
епсі; 

//ЗАКРЫТЬ ПРОГРАММУ 

ргосесіиге ТРогшІ. РогшСІозе (Зепсіег : ТОі^есЕ; ѵаг АсЕіоп: ТСІозеАс- 
Еіоп); 

Ьедіп 

Е1дЕхіЕ:= Ьгие; 
епсі; 


Гоняя функцию ТезСіпдВгаіп по кругу, мы должны на каждом «витке» про¬ 
верять, не разгадала ли она часом уже все клетки. Рано или поздно так и 
случится, и вот тут-то вы и увидите, что часть рядов «не решена», то есть 
не закрашена зелёным цветом. Это свидетельствует о том, что некоторые 
числа вообще не нужны для решения задачи. Но раз уж они есть, мы долж¬ 
ны убедиться, что они «правильные». Решая чужую задачу, вы сможете по¬ 
злорадствовать над горе-составителем, если найдёте ошибки, а, проверяя 
свою собственную, избежите участи предыдущего товарища. 

И вот он - миг победы: всё сошлось, и задача покорно пала к вашим ногам. 
Если вы успели нажать кнопку зЪіЗоипсІ, то услышите в свою честь апло¬ 
дисменты (не смущайтесь - вы их заслужили!]. 

Этим приятным звуковым эффектом заканчивается решение всех задач 
(конечно, «непорочных»], да не всегда так скоро. Я уже предупреждал вас о 
коварных составителях неудобоваримых задач, решение которых не обхо¬ 
дится без русского авось, или - по-научному - тыка. Если ТезііпдВгаіп вер¬ 
нётся ни с чем (найдёт коса на камень, и ни одна клетка не будет разгада¬ 
на], то нам ничего другого не останется, как задать цвет какой-нибудь 
клетки насильно, а затем продолжить решение. Если ситуация повторится, 
придётся сделать ещё одно предположение и так далее (разумно ограни¬ 
чить число предположений, чтобы не тратить время на неудачные задачи. 
В этой программе предельное число предположений равно 20. Объявите 
константу МАХ_ІЕѴЕІ\ 






МАХ_ЬЕѴЕЬ= 20; //макс, сложность задачи (число предположений)) 


Текущий уровень сложности задачи хранится в переменной Ьеѵеі: 


Ьеѵеі: Іп , Ьедег=0; //уровень сложности задачи (число предположений) 


Но как выбрать сомнительную клетку, и в какой цвет её закрасить? - Мы 
поступим просто - первую попавшуюся от начала поля серую клетку сде¬ 
лаем чёрной (если предположение окажется неверным, то перекрасим её в 
белый цвет - других вариантов нет]. Любители сложных задач могут поис¬ 
кать и более эффективный алгоритм подобных предположений. Другой 
вопрос: как мы сможем найти сомнительную клетку, если с её цветом не 
угадали, и как восстановить позицию на поле в тот судьбоносный момент? 
- Нужно запомнить всю необходимую информацию в массиве ЗаѵеЬеѵеІ 
(объявите его там же, где и все переменные]: 


//массив, в котором хранятся данные предыдущих уровней: 

ЗаѵеЬеѵеІ : аггау [0. .МАХ__ЬЕѴЕЬ] ТЗаѵеЬеѵеІ; 


А хранить в нём мы будем вот что: 


//данные уровня 

■Ьуре ТЗаѵеЬеѵеІ = Кесогсі 

//статус рядов верхнего числового поля: 

ТорЗ'Ьа'Ьиз : аггау [ 0 . . МАХ_РОЬЕ_ЭДІВТН-1 ] оі: ТЗ'Ьа'ЬизСгоир; 
//статус рядов левого числового поля: 

ЪеЕВЗЕаЕиз: аггау[0.. МАХ_Р0ЪЕ_НЕІ6НТ-1 ]оЕ ТЗЕаЕизбгоир; 
//копия поля: 
шазРоІе: ТРоІе; 

//коорд. "сомнительной" клетки 
ХСеІІ: іпРедег; 

УСеІІ: іпЕедег; 

//число разгаданных клеток: 

КеасІуСеІІз: іпРедег; 
епсі; 


Этого вполне достаточно, чтобы безболезненно вернуться в случае надоб¬ 
ности к нашим ошибкам и взяться за новые. 

Но, даже решив задачу, в которой делались предположения, мы не можем 
быть уверены, что решили её правильно. То есть решение, безусловно, бу¬ 
дет удовлетворять условиям задачи, но картинка получится неверной. 












Чтобы никого не обидеть, в качестве примера дуэлей приведу тестовую 
задачу (Рис. 3.38). 
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Рис. 3.38. И так, и сяк, и в клеточку! 


Вы легко можете убедиться, что оба решения верные, хотя автор мог иметь 
в виду только одно из них. Мы не должны винить в этом нашу программу - 
она всё сделала правильно, а вся ответственность ложится исключительно 
на составителей. Задачи, имеющие побочные решения, это плохие задачи, 
и характеризуют автора не с лучшей стороны, поэтому обязательно про¬ 
веряйте свои кроссворды, чтобы избежать досадных ляпсусов. 

В процедуре, обрабатывающей нажатие кнопки зЪіЗіагі, текст некоторых 
функций заменён многоточием, так как он уже приводился полностью 
раньше. Что касается работы процедуры, то мы разобрали её достаточно 
подробно, чтобы у вас не возникало сомнений. 


//•• і 

//=============== РЕШИТЬ ЗАДАЧУ ================= 

/ /*= = =----------- 

ргосесіиге ТРогтІ . зЬ-ЬЗ-Ьаг-ЬСІіск (Зепсіег : ТОЬ^есЕ) ; 

ІаЪеІ адаіп/ 
ѵаг 

і, ^: іпЕедег; 
з: зЕгіпд; 

ЫоѴаг: Ьооіеап/ 

питѴаг: іпЕедег; //число найденных вариантов решения задачи 
тахЬеѵеІ: іпЕедег; //сложность решения задачи 

//проверить данные задачи 

^ипс-Ьіоп ТезѣіпдО : Вооіеап ; 

епсі; // ТезЕіпд 

//проверить, не все ли клетки разгаданы: 

^ипс-Ьіоп ІзКеасіу(): Вооіеап; 

Ьедіп 

ІЫКеасІу. СарЕіоп : = іпЕЕозЕг (КеасіуСеІІз) ; 

Кези 1 Е:= Еаізе; 

ІЕ КеасіуСе 1 І 5 = АІІСеІІз ЕВеп Кези 1 В:= ТКЛЕ; //готово! 
епсі; 






















































































//отмечаем пустые строки 

ргосесіиге ТезЕіпд2его / 

епсі; // ТезЕіпдЕего 

{//отмечаем полные строки 
ЕипсЕіоп ТезЕіпдЕиііЬіпе() : Вооіеап/ 

епсі; // ТезЕіпдЕиііЬіпе} 

//отмечаем строки с полными суммами 

ЕипсЕіоп ТезЕіпдРиІІЗит () : Вооіеап/ 

епсі; //ТезЕіпдЕиІІЗит 

//отмечаем длинные строки 

ЕипсЕіоп ТезЕіпдЬопдЬіпе (): Вооіеап/ 

епсі; // ТезЕіпдЬопдЬіпе 

//- ищем подходящие комбинации клеток в ряду - 

ЕипсЕіоп ТезЕіпдОпеЬіпе (пСгоир: іпЕедег/ 

ЬепСгоир: аггау оЕ іпЕедег/ 

ЬепЬіпе : іпЕедег/ 

шазЗоигсе: аггау оЕ іпЕедег/ 

ѵаг тазВезиІЕ: аггау оЕ іпЕедег) : іпЕедег/ 

епсі/ //ЕипсЕіоп ТезЕіпдВгаіп () 

//сохранить данные заданного уровня 

ргосесіиге ЗаѵеБаЕаЬеѵеІ (п: іпЕедег)/ 

//п - номер уровня (0..) 
ѵаг і, ^: іпЕедег/ 

Ьедіп 

//сохранить статус рядов верхнего числового поля: 

Еог і:= 0 Ео РОЬЕ_ШОТН-1 сіо 

ЗаѵеЬеѵеі[п].ТорЗЕаЕиз[і]:= шазСоізЫиш[і , -1].ЗЕаЕизСгоир/ 
//сохранить статус рядов левого числового поля: 

Еог і: = 0 Ео РОЬЕ_№ЮТН-1 сіо 

ЗаѵеЬеѵеі[п].ЬеЕЕЗЕаЕиз[і]:= тазВомзЫит[-1 , і].ЗЕаЕизСгоир/ 
//сохранить копию поля: 

ЗаѵеЬеѵеі[п].шазРоіе:= шазРоіе/ 

//заменить первую серую клетку на чёрную: 
іпс (РеасіуСеІІз) / 

//сохранить число разгаданных клеток: 

ЗаѵеЬеѵеі [п] . РеасіуСеІІз : = РеасіуСеІІз/ 

Еог ]:= 0 Ео РОЬЕ_НЕІСНТ-1 сіо 
Еог і: = 0 Ео РОЬЕ_ЭДЮТН-1 сіо 

ІЕ шазРоіе [і^]= ШМ_СВАУ ЕЬеп Ьедіп 
шазРоіе [і^] := ШМ_ВЬАСК/ 

//сохранить координаты "сомнительной" клетки: 

ЗаѵеЬеѵеі[п].ХСеіі:= і/ 

ЗаѵеЬеѵеі[п].УСеІІ:= ^/ 
ехіЕ 
епсі/ 

епсі/ //ЗаѵеОаЕаЬеѵеі 

//загрузить данные заданного уровня 

ргосесіиге ЬоасЮаЕаЬеѵеІ (п : іпЕедег)/ 

//п - номер уровня (0..) 
ѵаг і: іпЕедег/ 

Ьедіп 






//загрузить статус рядов верхнего числового поля: 

Ьг і : = 0 Ро Р0ЬЕ_Ш0ТН-1 сіо 

тазСоізИит [ і , -1 ].ЗРаРизСгоир:= ЗаѵеЬеѵеІ [п].ТорЗРаРиз[ і ]; 

//загрузить статус рядов левого числового поля: 

Рог і : = 0 Ро Р0ЬЕ_Ш0ТН-1 сіо 

тазКомзШдп[-1, і] .ЗРаРизСгоир:= ЗаѵеЬеѵеІ [п] .ЬеРРЗРаРиз [ і ]; 
//загрузить копию поля: 
шазРо1е:= ЗаѵеЬеѵеІ [п]. шазРоІе ; 

//заменить чёрную клетку на белую: 

тазРоІе [ЗаѵеЬеѵеІ [п] . ХСеІІ , ЗаѵеЬеѵеІ [п] .УСеіі] := ШМ_ШІТЕ; 

//загрузит число разгаданных клеток: 

РеасіуСеІІз : = ЗаѵеЬеѵеІ [п] .РеасіуСеІІз; 
епсі; //ЬоасЮаРаЬеѵеі 

// 

//===================== РЕШАЕМ ЗАДАЧУ ======================= 

// 

Ьедіп 

ІР зРаРиз= 1 ПОИСК ' РЬеп ехір/ //- задача уже решается 
ЗеРЗРаРиз ( 'ПОИСК' ); 

//выключить режимы перемещения и рисования при решении задачи: 
зЪРЬгам. Ьомп := ЕАЬЗЕ; 
зЬРМоѵе. Ьомп := ЕАЬЗЕ; 

питѴаг:=0; 
тахЬеѵе1:= 0; 

//проверить данные фигуры: 

ІР ТезРіпд=ЕАЬЗЕ РЬеп Ьедіп ЗеРЗРаРиз (' ОЖИДАНИЕ ') ; ехір епсі;// - ошибка! 

//ни одна клетка пока не разгадана: 

РеасіуСеІІз : = 0; 

//подсчитать число уже разгаданных клеток: 

Рог ]:= 0 Ро РОЬЕ_НЕІСНТ-1 сіо 
Рог і:= 0 Ро РОЬЕ_ѴЛЬТН-1 сіо 

ІР тазРоіе [і] <>ИРПУ[_СРАУ РЬеп іпс (РеасіуСеІІз) ; 

ІЫРеасІу. СарРіоп : = іпРРозРг (РеасіуСеІІз) ; 

//начинаем решение задачи с нулевого уровня: 

Ьеѵеі:= 0; ІЫЬеѵеі . СарРіоп : = ІпРРозРг (Ьеѵеі) ; 

//ряды, в которых есть нулевые группы, можно сразу закрасить белым: 
ТезРіпдЕего; 

//ряды, в которых есть число, равное размеру поля, можно сразу 
//закрасить чёрным: 

//ІР ТезРіпдЕи11Ьіпе=ЕАЬЗЕ РЬеп Ьедіп ЗеРЗРаРиз (' ОЖИДАНИЕ ') ; ехір епсі; 

//если (сумма клеток в группах) + (сумма клеток в группах-1) = 

//длине ряда, то этот ряд разгадан: 

ІР ТезРіпдЕи113ит=ЕАЬЗЕ РЬеп Ьедіп ЗеРЗРаРиз (' ОЖИДАНИЕ ') ; ехір епсі; 

//если единственная группа в ряду длиннее половины ряда, 

//то часть ряда можно закрасить чёрным: 

ІР ТезРіпдЬопдЬіпе=ЕАЬЗЕ РЬеп Ьедіп ЗеРЗРаРиз (' ОЖИДАНИЕ ') ; ехір епсі; 
адаіп: 

ИоѴаг:= ЕАЬЗЕ; 

//пока в ТезРіпдВгаіп будет закрашена хотя бы одна клетка, 

//продолжаем решение задачи: 
мНіІе ТезРіпдВгаіп Ьо Ьедіп 
арріісаРіоп.РгосеззМеззадез; 

ІР Р1дЕхіР=Ргие РЬеп Ьедіп 








ЕідЕхіЕ: =Еаізе; 

ЗеЕЗЕаЕиз (' ОЖИДАНИЕ ’) ; ехіЕ 
епсі; 

ІЕ ІзРеасіу ЕНеп //- все клетки закрашены! 

Ьедіп 

//проверить, все ли ряды решены 
//если не все - продолжить: 

Еог і: = 0 Ео Р0ЬЕ_Ш0ТН-1 сіо 

ІЕ тазСоізИит[і,-1].ЗЕаЕизСгоирО зЕСгееп ЕНеп доЕо адаіп; 

Ьгеак; // - все ряды решены 

епсі; 

епсі; 

ІЕ ІзРеасіу апсі (ЫоѴаг=ЕАЬЗЕ) ЕНеп //- готово! 

Ьедіп 

іпс(питѴаг); 

МаѵРоЬесіа; 

з:='Задача решена!'; 

ІЕ питѴаг> 1 ЕЬеп з:= з+ #10#13+ ' Вариант - ' + іпЕЕозЕг(питѴаг); 
//сложность решения задачи: 

з:= з+ #10#13+ ' Сложность = ' + іпЕЕозЕг(тахЬеѵеі+1); 
арріісаЕіоп .МеззадеВох (РСЬаг(з),ЫАМЕ_РРОС,МВ_ОК ); 

ІЕ Ьеѵеі = 0 ЕЬеп Ьедіп 

ЗеЕЗЕаЕиз(' ОЖИДАНИЕ '); ехіЕ 
епсі; 

//могут быть варианты: 

ІЕ арріісаЕіоп. МеззадеВох (' Ищем варианты? ИАМЕ_РРОС, МВ_УЕЗИО)= Ю_ЫО 
ЕНеп Ьедіп 

ЗеЕЗЕаЕиз(' ОЖИДАНИЕ '); ехіЕ 
епсі 

еізе ИоѴаг:= ТВНЕ 
епсі; 

//не удалось решить задачу на этом уровне 
ІЕ ИоѴаг= ТРИЕ ЕНеп Ьедіп 
Ьес (Ьеѵеі); 

ІЕ Ьеѵеі< 0 ЕНеп Ьедіп 
ІЕ питѴаг= 0 ЕНеп 

з:='Задача решений не имеет!' 
еізе 

з:='Найдены все варианты решения задачи - '+ іпЕЕозЕг(питѴаг); 

арріісаЕіоп .МеззадеВох(РСНаг (з),ИАМЕ_РРОС,МВ_ОК ); 

ЗеЕЗЕаЕиз(' ОЖИДАНИЕ '); ехіЕ 
епсі; 

//уровень сложности: 

ІЫЬеѵеі . СарЕіоп : = ІпЕЕозЕг (Ьеѵеі) ; 

//загружаем данные предыдущего уровня: 

ЬоасЮаЕаЬеѵеІ(Ьеѵеі); 

ІЫРеасіу. СарЕіоп : = ІпЕЕозЕг (РеасіуСеІІз) ; 
доЕо адаіп 
епсі; 

//переходим на следующий уровень - 
//запомнить данные текущего уровня и 
//заменить первую серую клетку на чёрную: 

ЗаѵеОаЕаЬеѵеі(Ьеѵеі); 

іпс(Ьеѵеі); 

ІЕ Ьеѵеі > МАХ_ЬЕѴЕЬ ЕНеп Ьедіп 
з:=' Слишком сложная задача!'; 

арріісаЕіоп.МеззадеВох(РСНаг(з),ЫАМЕ_РРОС,МВ_ОК ); 

ЗеЕЗЕаЕиз(' ОЖИДАНИЕ '); 
ехіЕ 
епсі; 




ІЫЬеѵеІ . СарЫоп : = іпЬЬозЬг (Ьеѵеі) / 

ІЬ Ьеѵеі > тахЬеѵеІ ЬЬеп тахЬеѵе1:= Ьеѵеі/ 
доЬо адаіп 

епсі; // зЬЬЗЬагЬСІіск 


Чтобы защитить программу от шаловливых ручек (от них и самолёты па¬ 
дают!), следует запретить нажимать кнопки зЪіМоѵе и зЪЮгаш во время 
решения задачи: 


//НЕ ВКЛЮЧАТЬ РЕЖИМ ПЕРЕМЕЩЕНИЯ ПРИ РЕШЕНИИ ЗАДАЧИ 

ргосесіиге ТРогтІ . зЪШоѵеСІіск (Зепсіег : ТОЬзесЬ) ; 
Ьедіп 

ІЕ зЕаЕиз=' ПОИСК ' Ыіеп зЪЕМоѵе.Боѵт := ЕАЪЗЕ; 
епсі; 

//ПЕРЕКЛЮЧИТЬ РЕЖИМ: ВВОД ЗАДАЧИ - РЕШЕНИЕ ЗАДАЧИ 

ргосесіиге ТРогтІ. зЬУЭгаѵгСІіск (Зепсіег : ТОЪ^есЕ); 
Ьедіп 

ІЕ зЕаЕиз=' ПОИСК ' Ыіеп зЪЕБгам.Боші: = ЕАЪЗЕ; 
епсі; 


Мастерская Самоделкина, или Наши весёлые кар¬ 
тинки 


Берите в руки карандаш... 
Кавээновская песенка 

Когда вы перерешаете сотню-другую японских кроссвордов и у вас воз¬ 
никнет стойкое отвращение к этим головоломкам, попробуйте продлить 
очарованье и подобно киношному Ивану Васильевичу смените «профес¬ 
сию»: вместо того, чтобы решать чужие задачи, попридумывайте свои. 

В программе есть всё необходимое для осуществления ваших творческих 
порывов, всё, за исключением, пожалуй, главного - рисовать картинки 
придётся вам самим, тут вам никакой компьютер не поможет. Зато с тех¬ 
нической стороны нет никаких препятствий. Живописать можно анало¬ 
гично тому, как вы вручную решали задачи. Только теперь над вами не до¬ 
влеет «групповщина» чужих клеток, и вы целиком можете предаться во¬ 
площению своих самых смелых фантазий. 

Нажмите кнопку зЪШеѵѵРід ЛІ и установите размеры поля побольше (их 
всегда можно безнаказанно изменить в процессе работы, так что не впа¬ 
дайте в истерику, если монументальность вашего полотна затмит разум), 
очистите его от всякой дряни (рекламное словечко, удачно ввернул!) 






кнопкой зЪіУѴНііеСгМ 11=1. Включите режим рисования кнопкой зЪЮгам/ I 
и приступайте к своим художествам. Чёрные точки и линии наносятся на 
«холст» левой кнопкой мышки, а роль ластика играет правая кнопка того 
же грызуна (ежели у вас толчковая - правая и вы изменили настройки, то 
тогда, сами понимаете, всё наоборот). 

Если вы неудачно разместили картинку на поле, то вдавите поглубже 

кнопку зЬіМоѵе ~1~І и, нажав левую кнопку мыши на игровом поле, двигай¬ 
те её в нужном направлении. 


Удовлетворившись содеянным, подгоните размеры поля под картинку так, 
чтобы не осталось пустых рядов, и сохраните свою работу на диске. Для 

этого вы можете оцифровать рисунок кнопкой зЪ^итЪегз Л_І и записать 


только числа (условие задачи) кнопкой зЫБаѵеРід Лі. Но есть и альтерна¬ 
тивный вариант - сохранить именно картинку. Если вы были вниматель¬ 


ны, то помните, что кнопка зЪіЗаѵеРіс Я 

до сих пор ничем себя не прояви¬ 


ла. А всё потому, что она ждала своего часа, который, наконец, пробил. 


По тем же причинам, что и раньше, мы не станем изобретать собственного 
формата для сохранения готового рисунка, а воспользуемся форматом ]СѴѴ 
из программы Гантверга ]арап2, тогда ваши задачи можно будет решать и 
в ней. Но имейте в виду, что файл /СИ/ содержит не условие задачи, а толь¬ 
ко ответ (копию картинки с игрового поля) - для проверки решения (та¬ 
кие файлы используются при ручном разгадывании). Наша же программа 
при загрузке файлов /СИ/ одновременно формирует и условие задачи, ко¬ 
торое всегда можно записать в формате /СР, то есть из рисунка сделать го¬ 
ловоломку. Тем, кто интересуется, как всё это шевелится, советую посмот¬ 
реть процедуру Ьоай]сѵ\/РіІе, которая находится в обработчике нажатия на 

кнопку зЪЫоайРід _ЛІ - ргосейиге ТРогт1.5ЬИоасІРідСІіск(5епсІег: ТОЪ]есі:);. 


После всех катавасий и круговертей вам не составит особого труда разо¬ 
браться в технологических процесах, происходящих при поглаживании 
кнопки зЪіЗаѵеРіс: 


//ЗАПИСАТЬ КАРТИНКУ 

ргосесіиге ТРогшІ . зЬѢЗаѵеРісСІіск (Зепсіег : ТОЬдесЬ) ; 
ѵаг 

Р: ііііе оі: ЪуЬе; 

Тп,з: зЬгіпд; 

i, 0 : іпЬедег; 

Ь: ЪуЬе; 

Ьедіп 

ii. з1:а'(:из= ' ПОИСК ' Ыіеп ехіЬ; 







//расширение файлов рисунков: 
заѵесііаіоді . БеІіаиІРЕх'Ь : = 1 3 си 1 ; 

заѵесііаіоді . Еіібег : = 1 Зарап риггіе (* .^сѵг) |*.і1СМ'; 
//записываем в каталог ' ЕЮТКЕ': 

з : =ехРгасР^і1ераР1і (аррІісаРіоп. ехепате) + ' ЕІСІЖЕ\ '; 
заѵесііаіоді. ІпібіаІЕіг : = з; 

заѵесііаіоді. Тібіе : = ' Запишите рисунок на диск'; 
заѵесііаіоді. іііепате : = ЫатеЕід; 
іі пор заѵесііаіоді.ЕхесиРе Рііеп ехір; 

//имя конечного файла: 
іп:= заѵесііаіоді. іііепате; 

//изменить его, если при записи было выбрано другое имя: 
іп : =С1іапдеЕі1еЕхР (іп, 1 . ] си 1 ) ; 

ЫатеЕід:=іп; 
аззідпіііе(і,іп); 
геигібе(1); 

//записать фигуру - 
//высота и ширина фигуры: 
игібе (1, РОЪЕ_Ѵ\ГІВТН) ; 
игібе (і, РОЪЕ_НЕІСНТ); 
іог і: = 0 Ро Р0ЬЕ_ИІБТН-1 сіо 
Рог ^:= 0 Ро Р0ЪЕ_НЕІСНТ-1 сіо 
Ьедіп 

ІР тазРоІе[і,Л = ШМ_ВЬАСК РРеп Ь:= 2 еізе Ь:= 0; 
игіРе (Р, Ь); 
епсі; 

//закрыть файл: 
сІозеРНе (Р) ; 

РогтІ.сарРіоп:= ЫАМЕ_РКОС + ' [' + ЫатеЕід + '] 

Рогті.КеРгезР ; 
теззадеЬеер (0) 
епсі; // зЬРЗаѵеРісСІіск 


Чтобы полнее использовать возможности программы по конвертирова¬ 
нию рисунков в задачи, в ней предусмотрена загрузка растровых картинок 
ВМР и значков ІСО в игровое поле. Одновременно изображение появится и 
на компоненте Ітадеі {/,гтМето ), чтобы оригинал всегда был у вас перед 
глазами. 

Предупреждения. 

1. Избегайте картинок больших размеров, всё равно вы не сможете их загрузить. В 
данной версии программы максимальные размеры растров не должны превышать 
70 х 50 пикселей (вы, конечно, можете и «раздвинуть границы», если пожелаете). 


2. Если картинки не монохромные, то все цвета за исключением белого и чёрного 
будут заменены серым. Вы должны перекрасить их в чёрный и белый цвет так, что- 




бы получился рисунок. Поручить это компьютеру нельзя, он скорее маляр, чем ху¬ 
дожник, так что результаты почти наверняка окажутся отвратительными. 


А теперь полюбуйтесь, как в программе совершается таинство преобразо¬ 
вания глупого растра в полную глубокого смысла картинку на поле: 


//ЗАГРУЗИТЬ РАСТРОВУЮ КАРТИНКУ ИЛИ ЗНАЧОК 

ргосесіиге ТРогтІ . зЬРОрепРісРигеСІіск (Зепсіег : ТОЬ^есР) ; 

ѵаг 

и, Ь: іпРедег; 
і, ^: іпРедег; 

Ьтр: ТВІТМАР; 

Ьедіп 

РгтМето . Ітадеі. ѴізіЫе : = ЕАЪЗЕ; 

ОрепРісРигеОіаіодІ. ОеРаиіРЕхР : = ' ВМР ' ; 

ОрепРісРигеОіаІодІ .ІпіРіа10іг:= ехРгасР- 
РііераРЬ(арріісаРіоп.ехепате); 

ОрепРісРигеОіаІодІ. ТіРІе : = ' Загрузите картинку' ; 
ОрепРісРигеОіаІодІ.ЕіІРег:= СгарЬісЕіІ- 
Рег(ТВіРтар)+'|'РСгарЬісЕіІРег(ТІсоп); 

ІР пор ОрепРісРигеОіаІодІ.ЕхесиРе РЬеп ехір; 

//имя файла: 

ЫатеЕід:= ОрепРісРигеОіаіодІ.ЕііеИате; 

//загрузить картинку: 

РгтМето . Ітадеі. РісРиге . ЪоасіЕготЕіІе (ЫатеЕід) ; 

ІР ОрепРісРигеОіаіодІ. Еі1РегІпсіех= 2 РЬеп Ьедіп //- значок 
Ътр:= ТВіРтар.СгеаРе; 

Ьтр . МісіРЬ: = РгтМето . Ітадеі. РісРиге . ісоп . МісІРЬ; 

Ьтр.НеідЬР:= РгтМето.Ітадеі.РісРиге.ісоп.НеідЬР; 

Ьтр.Сапѵаз.Ьгаи(0,0,РгтМето.Ітадеі.РісРиге.ісоп); 

РгтМето.Ітадеі.РісРиге.ВіРтар.Аззідп(Ьтр); 

Ьтр.Егее; 
епсі; 

и: = РгтМето . Ітадеі. РісРиге . ИісіРЬ; 

Ь:= РгтМето.Ітадеі.РісРиге.НеідЬР; 

//проверить размеры картинки: 

ІР (Ь > МАХ_РОЬЕ_НЕІОНТ) ог (и > МАХ_РОЬЕ_ИІВТН)РЬеп Ьедіп 

аррІісаРіоп .МеззадеВох (' Слишком большая картинка!',ЫАМЕ_РКОС, 
МВ_ОК); 
ехір 
епсі; 

РгтМето . Ітадеі .ѴізіЫе : = ТЕЛЕ; 

РОЬЕ_1л7ІЛТН: = и; РОЬЕ_НЕІСНТ:= Ь; 

ТОР_РОЪЕ_НЕІСНТ:= 2; ЪЕЕТ_РОЪЕ_Ѵ\ГІВТН: = 2; 

Ргераге(РОЬЕ_1л7ІЛТН,Р0ЬЕ_НЕІ6НТ, ТОР_РОЬЕ_НЕІСНТ, 
ЪЕЕТ_РОЪЕ_Ѵ\ГІВТН) ; 

//очистить цифровые поля: 

С1еаг_тазСоізИит; 

С1еаг_тазЕоизКит; 

Рог ^:= 0 Ро Р0ЬЕ_НЕІ6НТ-1 Ьо 




Еог і : = 0 1:0 РОЬЕ_№ІВТН - 1 сіо Ьедіп 

сазе ЕгтМето .Ітадеі.Ріскиге.Віктар.Сапѵаз.Ріхеіз[і, 3 ] оЕ 
сІВІаск: тазРоІе [ і, Л : = ШМ_ВЬАСК; 
сІШііЕе: тазРоІе[і,Л := ЖПУМЙНІТЕ; 
еізе тазРоІе [іЛ 1 := ЕПЖ_СКАУ; 

епсі; 

епсі; 

//вывести в заголовке формы имя загруженного файла: 

Воггпі. сарЕіоп: = ЫАМЕ_РКОС + ' [' + ЫатеЕід + ' ] 

сідРоІе. Іпѵа1ісіа1:е 
епсі; // зЬРОрепРісРигеСІіск 


Раз уж вы можете загружать в программу растры и значки, то лучше со¬ 
здавать картинки-задания в каком-нибудь растровом графическом редак¬ 
торе или в редакторе иконок (их великое множество, выбирайте на свой 
вкус!). Они значительно удобнее и мощнее, чем наша скромная в этом от¬ 
ношении программа (всё-таки не царское это дело, рисование; вот и Остап 
Ибрагимович рисовал как курица лапой, а ведь был милейшим человеком). 

А подготовив рисунок, просто загрузите его кнопкой зЪЮрепРісіиге ЛіІ, а 
затем сохраните как картинку ]СѴѴ или как задачу ]СР для последующего 
применения. 


Вы легко найдёте массу небольших картинок на своём диске или в Интер¬ 
нете, которые вполне можно, приложив руки и сердце, переделать в япон¬ 
ские кроссворды. На первых порах это невинное занятие поможет вам 
приобрести необходимый для создания будущих шедевров опыт. 


А вот наглядный пример хорошего отношения к людям. Слева показана 
форма, в которую загружен значок с изображением колобка. Справа - он 
же, но раскрашенный и оцифрованный (Рис. 3.39). 



Рис. 3.39. Оцифровали! 

Лёгким движением руки значок превратился - в японский кроссворд (знали 
бы японцы, что мы сделаем с их творением!). Тот, кто способен на боль- 




































шее, чем примитивный «плагиат», может изувечить оригинал до полной 
неузнаваемости. А те и другие сообща имеют полное право наклонировать 
теперь бешеное количество задач, не имеющих практически никаких до¬ 
стоинств. 


«Шлите апельсины бочками», или «Ждите ответа!» 

Ищите - и обрящете! 

Библейское 

Не очень-то увлекательно составлять задачи для самого себя, лучше поза¬ 
бавить ими кого-нибудь другого. Благо, существует немало изданий 
(смотри выше), отдающих должное японским кроссвордам. Вы вполне мо¬ 
жете послать свои работы в редакцию и, если вам удалось в грубых квад¬ 
ратах выразить свои изящные замыслы, у вас есть последняя надежда 
увидеть свои кроссворды на страницах какой-нибудь газеты. Это подни¬ 
мет ваш боевой дух и толкнёт вас на новые опрометчивые поступки в об¬ 
ласти сочинения головоломок. 

Если же вас утомит сам процесс разработки задания, то просто распеча¬ 
тайте готовый рисунок на принтере, скопировав его предварительно в 
любой графический редактор. Этого вполне достаточно, чтобы послать за¬ 
дание в газету. А можете и красиво оформить его. Например, чудесно для 
этого подходит векторный графический редактор СогеЮгаѵѵ. 

Засим позвольте откланяться - наш художественный салон закрывается. 


«А напоследок я скажу...» 

На этом можно и закончить изучение программы для составления и реше¬ 
ния японских кроссвордов - теперь вы знаете о ней всё. Осталось - на вся¬ 
кий случай - привести начало программы, где объявляются константы, 
переменные, типы, процедуры и функции, так как это делалось на протя¬ 
жении многих страниц, и вы могли что-нибудь упустить в пылу борьбы за 
урожай(ность). 


сопзС 

ЫАМЕ_РКОС = 'ЯПОНСКИЙ РИСУНОК'; 

МАХ_РОЪЕ_Ѵ\ГІОТН = 70; //макс, ширина поля в клетках 

МАХ_РОЬЕ_НЕІСНТ = 50; //макс, высота поля в клетках 

ЖПУМлШІТЕ = 2 ; //пустая клетка в тазРоІе 

1ГОМ_ВЬАСК = 1; //чёрная клетка в тазРоІе 




ШМ_СРАУ= 0; //клетка серая в тазРоІе (фон) 

СОЬОР_ѴШІТЕ : ТСо1ог= $ЕЕЕЕЕЕ; //белая клетка на поле 
СОЬОР_ВЬАСК: ТСо1ог= $0; //чёрная клетка на поле 

СОЬОВ_СВАУ: ТСо1ог= $7Е7Е7Е; //серая клетка на поле 
МАХ_СЕЬЬШМ = 14; //макс, ширина/высота числовых полей 

10 

МАХ_АЬЬ_СЕЬЬЗ_НЕІСНТ = 30;//макс, высота игрового и числового 
полей 

//(видимая часть) 

МАХ_АЬЬ_СЕЬЬЗ_ШЕТН = 4 6; //макс, ширина игрового и числового 
полей 

//курсоры: 
сгНапсі :іпЕедег= 4; 
сгМоѵе :іпЕедег= 5; 
с^КізЕ^ : іпЕедег= 7; 

МАХ_ЬЕѴЕЬ= 20; //макс, сложность задачи (число предположе¬ 

ний) 

//данные игрового поля 

буре ТРоІе = аггау[0. .МАХ_Р0ЬЕ_ЭД10ТН-1 , 0..МАХ_РОЬЕ_НЕІСНТ-1]оЕ 

ІпЕедег; 

//статус групп в числовых полях: 

//зЕШііЕе - группа не решена, 

//зЕУеІІом - группа решена, 

//зЕСгееп - ряд решён 

буре Т5ЕаЕизСгоир=( зЕШііЕе, зЕУеІІом, зЕСгееп); 

//данные в каждой клетке числовых полей: 
буре ТСеІІ = Кесогё 

зЫит: ЗЕгіпд; //строковое представление числа в клетке 
Ышп: іпЕедег ;//число в клетке 
ЗЕаЕизСгоир: ТЗЕаЕизСгоир; //статус группы 
епсі; 

//положение числового поля: слева, сверху 
буре ТРо1еЬосаЕіоп= (рІЬЕЕТ, рІТОР) ; 

//данные уровня 

буре ТЗаѵеЬеѵеІ = Кесогё 

//статус рядов верхнего числового поля: 

ТорЗЕаЕиз: аггау [0. .МАХ_РОЬЕ_ШОТН-1 ] оЕ ТЗЕаЕизСгоир; 

//статус рядов левого числового поля: 

ЬеЕЕЗЕаЕиз: аггау[0. .МАХ_РОЬЕ_НЕІСНТ-1 ]оЕ ТЗЕаЕизСгоир; 

//копия поля: 
тазРоІе: ТРоІе; 

//коорд. "сомнительной” клетки 
ХСеІІ: іпЕедег; 

УСеІІ: іпЕедег; 

//число разгаданных клеток: 

КеасіуСеІІз : іпЕедег; 
епсі; 

ѵаг 

//массив, в котором хранится копия поля 
тазРоІе : ТРоІе; 

РОЬЕ_ШЕТН: іпЕедег = 28; //ширина поля в клетках 




РОЬЕ_НЕІСНТ: іпСедег = 28; //высота поля в клетках 
//массив, в котором хранятся верхние числа: 

тазСоІзЫит : аггау[0.. МАХ_Р0ЬЕ_СТІ0ТН-1 , -1..МАХ_СЕЬЬШМ-1]оЕ 

ТСеІІ; 

//массив, в котором хранятся левые числа: 

тазКоѵзЫит : аггау[-1..МАХ_СЕЬЬШМ-1, 0.. МАХ_Р0ЬЕ_НЕІСНТ-1 ]оЕ 
ТСеІІ; 

ЬЕЕТ_РОЬЕ_Ѵ\ГЮТН : іпСедег = 2; //ширина левого числового поля в 
клетках 

Т0Р_Р0ЬЕ_НЕ1СНТ: іпСедег =2; //высота верхнего числового поля в 
клетках 

зСаСиз: зСгіпд=''; 

ЫашеЕід: зСгіпд= 'Сетр'; 

//координаты клетки с курсором: 
сеІІМоизе: ТРоіпС; //игровое поле 

сеІІМоизеТор : ТРоіпС; //верхнее числовое поле 
сеІІМоизеЬеЕС : ТРоіпС; //левое числовое поле 
АІІСеІІз: ІпСедег=0; //всего клеток на поле 
КеасІуСеІІз : ІпСедег=0; //разгадано клеток 
ЕІдЕхіС: Ьоо1еап= Еаізе; 

Ьеѵеі: ІпСедег=0; //уровень сложности задачи (число предпо¬ 

ложений) 

//массив, в котором хранятся данные предыдущих уровней: 
ЗаѵеЬеѵеі: аггау[0. .МАХ_ЬЕѴЕЬ] оЕ ТЗаѵеЬеѵеІ; 

Суре 

ТЕогтІ = сіазз (ТЕогт) 
ргіѵаСе 

{ РгіѵаСе сіесІагаСіопз } 
ргосесіиге С1еаг_тазСо1зЫит; 
ргосесіиге С1еаг_тазКоѵзЫит; 
ргосесіиге ІпѵаІісіаСеСгісіз; 
ргосесіиге МоѵеЫитз; 
ргосесіиге ИаѵЕггог; 
ргосесіиге Ѵ\ГаѵР.еасіуЬіпе; 
ргосесіиге ИаѵРоЬесіа; 

ЕипсСіоп СеСЫитСгоир(ЬосаСіоп: ТРоІеЬосаСіоп; пЬіпе: іпСедег): 
іпСедег; 

ЕипсСіоп СеСЬепСгоир (ЬосаСіоп: ТРоІеЬосаСіоп; пЬіпе, пбгоир : 
іпСедег) 

: іпСедег; 

ргосесіиге ЗеСЗСаСиз (з: зСгіпд) ; 
риЫіс 

{ РиЫіс сіесІагаСіопз } 
епсі; 

ѵаг 

Еогті: ТЕогтІ; 
ітрІетепСаСіоп 
изез МетоШіС, ЫеѵЕідСпіС; 




{$К *.ОГМ} 



Исходный код программы находится в папке ШРР(Ш. 



логическое древо, или Японская родня 


Гора родила мышь. 
Нашему забору двоюродный плетень. 
Из мудрых мыслей и афоризмов 


щк и всякая другая известная головоломка, японский кроссворд имеет 
бедных родственников, к счастью, не столь многочисленных. Пока все до¬ 
ма, давайте познакомимся с несколькими из них. 


В последние годы японский кроссворд мутировал, породив химеру - цвет¬ 
ной рисунок, в котором клетки могут быть не только чёрными и белыми, 
но и вообще любых мыслимых (и немыслимых) цветов. Второе отличие от 
классического рисунка состоит в том, что между группами цветных клеток 
прослойки в виде белых клеток не обязательны. 

Решается подобное чудо природы практически так же, как и обычная за¬ 
дача, хотя забава куда как веселее, ведь для раскрашивания клеток при¬ 
дётся держать в руках целый пучок карандашей! 

Так как цветные рисунки не имеют отношения к нашим досугам, то писать 
программу для их решения мы не станем. Если же вам неймётся, не тер¬ 
пится и не хочется ждать милостей от мерзкой природы - милости прошу, 
займитесь-ка этим сами. Чтобы не изобретать велосипед (или того хуже - 
самокат), попробуйте «уговорить» нашу программу на «цветное» решение. 
Но будьте готовы к большой работе! 


Вторая, более светлая мысль авторов привела к гибридизации, то есть к 
скрещиванию японского кроссворда с обычным (который, если вы не зна¬ 
ете, является для нас важнейшим из всех искусств). Метис получился пре¬ 
занятным, но бесплодным. Посему, не выдержав напора эволюции, сгинул, 






как и все прочие динозавры. Так как автор этих строк и междустрочий то¬ 
же принимал непосредственное участие в выведении несуразных мон¬ 
стров, то - исключительно в кунсткамерных целях - решился на демон¬ 
страцию своей напечатанной в одной из московских газет работы (Рис. 
3.40]. 
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По правилам головоломки “Японский рисунок” восстановите сетку кроссворда, а затем 
заполните её словами } определения которых даны, в произвольном порядке. 

4- йукввнныв слова: 1. "Пул я - дура, ... - молодец" (Суворовское). 2. Необъяснимое явление. 3. Английский парный танец. 
4. "Воздухо пл а в шел ь", ото рвавшийся от коллектив а. 5. Резкое снижение самолёта. 6. Жёлоб. 

5- йукванныа слова: 7. Съедобный гриб "хитрого" цвета. 3. Начало реки. 9. Схватка за урожай. 10. Руководитель 
факультета. 11. Аркан. 12. Тара для переноски котов. 13. Осёл и катапульта. 14. Вересковый кустарник. 15. Резвый, 
игривый ребёнок. 16. Землечерпалка. 1 7. Обезжиренное молоко. 13. Инструменту я пропоп ки. 

6- йукввнныв слова : 19. Заболевание суставов. 20. Детёныш яка. 21. Гигант на глиняных ногах. 22. Радуга как набор 
цветов. 23. Еегун-дальнобойщик. 24. Поэма Лермонтова о предьщущем пункте. 25. Сигаретный 'бычок". 26. Угнетённое 
состояние. 27. Скул ьгтгурэ. 

7- букввнныв слов : 23. Вирусная болезнь таз. 29. Участник корриды с копьём. 30. Наука для проверки гармонии. 31. 
Осколочная... 32. Неявка на работу. 33. Невезение, провал. 34. Маленькая ... до старости щенок (поел.). 35. Охотничья 
плеть. 36. Приучение лошади к езде. 37. Писатель, который не попадает в рифму. 33. "Поцелуй же меня, кума-..." 
(песенное). 

в-йукввнныв слова : 39. Праздник в Рио. 40. Один из тех, что съели Кука. 41. На все ноги мастер. 42. Комнатный 
беспорядок. 43. Чиполлино как ботанический объект. 44. Прослойка между бедняком и кулаком. 45. Каждый из 
неуловимых. 

9-йукввнныв слова: 46. Визави сталагмита. 47. Жительница чёрного континента. 43. Невосприимчивость к заразе. 49. 
Жительниц а одной из стран Юго-Восточной Азии. 50. Периодическое издание. 

































































Отит. 

І.Штык. 2.Чудо. 3.Шейк. 4.Икар. 5.Пике. б.Сток. 7.Рыжик. 3.Исток. 9.Битва. 10.Декан. 11.Лассо. 12.Мешок. ІЗ.Онэгр. 
14.Ерика. 15.Игрун. 1 6.Драга. 17.Обрат. ІЗ.Тнпкэ. 19.Артрит. 20.Ячёнок. 21 .Колосс. 22.Спектр. 23.Стайер. 24."Беглец". 
25,Окурок. 26.Надлом. 27.Статун. 23.Трахома. 29.Пикадор. ЗО.Алпебра. 31 .Граната. 32.Невыход. 33.Неудача. 34.Собачка. 
Зб.Арапник. 36.Наездка. 37.Прозаик. ЗЗ.Душечка. 39. Карнавал. 40.Абориген. 41.Чулочник. 42.Кавардак. 43.Луковица. 
44 .Сере дн нк. 4 5. Мстител ь. 4 6. Стал а ктит. 4 7. Афри кан ка. 43. Им м ун итет. 49. В ьегн ам ка. 5 0. В ре мен ни к. 51 .Се рдцее дка. 
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Рис. 3.40. А что, неплохо получилось! 



Наша программа напичкана всем, что нужно для плодотворной ра¬ 
боты. Но вы можете на досуге подумать вот над чем. Почти во всех 
процедурах и функциях программы одни и те же действия прово¬ 
дились отдельно для верхнего и левого числовых полей. Сделано 
это исключительно для простоты понимания, но теперь это вам уже 
ни к чему и вы спокойно можете переделать программу так, чтобы 
не писать дважды один и тот же код. Пример этого вы найдёте в 
самой программе. Например, функция ТезііпдОпеИпе обрабатывает 
и вертикальные, и горизонтальные ряды. О других усовершенство¬ 
ваниях программы уже говорилось раньше. Кроме того, вы можете 
проявить разумную инициативу и даже отчаянную смелость на этом 
поприще. 









































































































Факультатив 4. Игра-головоломка І-одоз 


Ьодоз - это прекрасная, оригинальная компьютерная головоломка! Она 
требует от игрока минимальных знаний, поэтому в неё могут играть даже 
маленькие дети. И в то же время игра Ьодоз прекрасно развивает 
логическое и комбинаторное мышление. 


Правила игры 

очень просты и немногочисленны: 

- На клетки прямоугольного поля поочерёдно выставляются фишки, 
которые можно представить в виде игральных кубиков. На верхней, 
видимой грани «свежего» кубика находится одно очко. На передней - два, 
на нижней - три и, наконец, на задней - четыре. Боковые грани в игре не 
участвуют. 

- Если вновь выставленная фишка соприкасается своими гранями с уже 
имеющимися на поле, то последние поворачиваются так, чтобы на их 
верхней грани оказалось на единицу большее число точек (очков]. После 
четырёх очков, естественно, на верхнюю грань снова выйдет одно очко. 

Например, на доске (игровом поле] стоит фишка (Рис. 4.1]. 



Рис. 4.1. Занимаем исходное положение! 


- Если следующие фишки выставляются так, что они не имеют общих 
граней с фишками на поле, то эти фишки не изменяют своих значений 
(Рис. 4.2]. 



Рис. 4.2. Не тревожьте соседей! 





































- Если же новая фишка соприкасается с ранее выставленными фишками, 
то они поворачиваются на следующую грань (Рис. 4.3). 




Рис. 4.3. Поворачиваемся с боку на бок! 

Цель игры: выставляя на поле фишки с соблюдением правил, построить 
заданную фигуру. 

Далее мы подробно разберём алгоритм игры, позволяющий достаточно 
легко решить любую задачу, а пока попробуйте самостоятельно 
справиться с несколькими самыми простыми заданиями. 

Составьте следующие фигуры, последовательно выставляя на 
первоначально пустое поле фишки. 

Задача 1. (Рис. 4.4). 



Рис. 4.4. Вот и первая задача! 






















































Задача 2. (Рис. 4.5). 



Рис. 4.5. Задача не приходит одна! 
Задача 3. (Рис. 4.6). 



* 



Рис. 4.6. Задачи ходят по-трое! 


Программируем от достигнутого 

Так как правила игры Ьодоз не очень сильно отличаются отТіравИЛ игры 
ЗкогіСате, то мы возьмем за основу интерфейс этой игры, только 
исправим и дополним его новыми элементами. Поэтому начните работу 
над новым проектом с того, что загрузите в ТигЪо йеІрЫ, а затем сохраните 
в новой папке все файлы игры 57? огіСате. 


Правила игры Ьодоз никак не ограничивают размеры игрового поля, но 
опыт показывает, что 13 клеток по горизонтали и столько же по 
вертикали вполне достаточно для любых разумных заданий. Это немного 
больше, чем в игре ЗНогіСате, поэтому и форму, и поля придётся 
увеличить, а размеры ячеек сеток - уменьшить. Кроме того, форму 
необходимо «адаптировать» к новой игре - заменить название и значок в 
заголовке: 


ВогсіегТсопг = [ЪіЗуз'ЬетМепи, ЬіМіпітіге] 



























ВогчіегЗРуІе = ЬзЗіпдІе 
СарРіоп = ' Ъодоз ' 

СІіепРНеідЬР = 515 
С1іепЗД*і<Ші = 72 6 
Соіог = сІЗкуВІие 
РорирМепи = РорирМепиІ 
РозіРіоп = роБезкРорСепРег 

ОпСгеаРе = РогтСгеаРе 
ОпМоизеМоѵе = ГогтМоизеМоѵе 
ОпЗЬоѵ = РогтЗЬовд- 

Совсем немного придётся поработать и над обеими сетками. 

Сетка сІдРоІе: 

ЬеРР = 4 

Тор = 44 

ЮісіРЬ = 4 65 

НеідЬР = 465 

Сигзог = сгНапсіРоіпР 

СоІСоипР = 14 

КоѵСоипР = 14 (не забывайте об оцифровке!) 

БеРаиІРСоІШ-Сіиі =32 
ОеРаиІРКоѵгНеідЬР = 32 
Бе^аиІРБгаѵіпд = Гаізе 
РіхесіСоІз = О 
ГіхесіКоѵ/з = О 

ОрРіопз = [доѴегРЪіпе, доНоггЪіпе] 

ЗсгоІІВагз = ззЫопе 

ОпБгаѵСеІІ = сідРоІеВгаѵСеІІ 
ОпМоизеБоѵт = бдРоІеМоизеОомп 
ОпМоизеМоѵе = РогтМоизеМоѵе 

Сетка сІдРоІе2: 

ЬеРР = 484 
Тор = 44 
ЮісіРЬ = 241 
НеідЬР = 241 
Сигзог = сгНапсіРоіпР 
СоІСоипР = 14 
КоѵСоипР = 14 
БеРаиІРСоІШ-Сіиі =16 

ОеРаиІРВоѵгНеідІіР = 16 (размер клеток на правом поле устанавли 
ваем в два раза меньше, чем на игровом) 

ОеРаиІРБгаѵгіпд = Раізе 

Орѣіопз = [доѴегРЪіпе, доНоггЪіпе] 

ЗсгоІІВагз = ззЫопе 


ОпБгаѵСеІІ = сідРо1е2ВгаиСе11 


ОпМоизеБоѵт = сідРо1е2МоизеВовдп 
ОпМоизеМоѵе = РогшМоизеМоѵе 

Соответствующим образом изменяем и все глобальные константы. 


сопзі 

//макс, размеры поля: 
МАХ_РОЬЕ_ИЮТН= 14; 

МАХ_РОЪЕ_НЕIСНТ= 14; 

ИАМЕ_РКОС= ' Ъодоз ' ; 

ІеЬіег : з!гіпд= ' АВСВЕРСНІСГКЪМ' ; 


Практически без изменений останутся объявления типов: 


Вуре 

ТРо1е= аггау[0..МАХ_Р0ЪЕ_МІБТН-1, 0..МАХ_Р0ЪЕ_НЕІСНТ-1] о! 

ЗЪогІіпІ; 

ТМешогу= Кесогсі 
Носі: іпіедег; 

//позиция на полях: 

РозЪ, РозК: ТРоІе; 
епсі; 

//состояние программы: 

103111631316= (дзѴіаіЪ, дзЗоІиІіоп) ; 

//ходы: 

ТМоѵез= Кесогсі 
//колонка: 

СоІ: іпіедег; 

//строка: 

Кои: іпіедег; 

//позиция на полях: 

РозЪ, РозК: ТРоІе; 
епсі; 


Для большинства глобальных переменных игры ЗНогіСате найдётся 
работа и в нашей программы, а остальные мы будем добавлять по мере 
необходимости: 


ѵаг 

//поля: 

тазРоІе, тазРо1е2: ТРоІе; 
Метогу: ТМетогу; 
бзтеЗІзІе: Т6ате31а1е= дзИаіІ; 
//запись ходов: 

Моѵез : аггау[0..169] оі ТМоѵез; 
//номер хода: 

Носі: іп!едег= 0; 

Но<і_тзх: іп!едег= 0; 
зіер: іпіедег; 
гер: іп!едег= 0; 








Поскольку размеры формы и полей в этой программе постоянны, то 
подготовка к новой игре намного облегчается. Достаточно обнулить ходы 
и очистить оба поля: 


//СОЗДАТЬ ФОРМУ 

ргосесіиге ТРогтаІ. РогтСгеаГе (Зепсіег: ТОЬ^ес■Ь) ; 

Ьедіп 

//подготовить новую игру: 

ЫемРіау; 

епсі; //ЕогтСгеаГе 

//ПОДГОТОВКА К НОВОЙ ИГРЕ 

ргосесіиге ТРогшІ. ЫеотРІау ; 

ѵаг 

і, ^ : іпГедег; 

Ьедіп 

//обнулить число ходов: 

Нос1:= 0; Нос1_тах:= 0; 

1ЫНос1.СарГіоп: = 'Ход - 0'; 

//задача не имеет названия: 

Гоггпі. сарГіоп : = ИАМЕ_РКОС + ' []'; 

//очистить левое поле: 

Гог ^: = 1 Го ЬдРоІе.Р.ошСоипГ-1 сіо 
Гог і:= 1 Го сІдРоіе. СоІСоипГ-1 сіо 
шазРоІе [і^ ] := 0; 

ЬдРоІе. ІпѵаІісІаГе; 

//очистить правое поле: 
шазРо1е2:= шазРоІе; 

ЬдРо1е2 . ІпѵаІісІаГе; 

//запомнить начальную позицию: 

Мешогуіп; 
епсі; // ИешРіау 


В массивах тазРоІе и тазРо!е2 нулём мы будем обозначать пустую клетку 
поля, а числами 1, 2, 3, 4 - количество очков на верхней грани фишки. Всё 
настолько понятно, что даже не нужно вводить констант для содержимого 
клеток полей. 

Изменившиеся размеры ячеек и игрового поля заставляют нас нарисовать 
новые картинки для оцифровки поля (первая картинка в программе не 
используется) (Рис. 4.7) 
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Рис. 4.7. Оцифровка поля 








Как и раньше, все эти картинки нужно загрузить в компонент ітШоіа типа 
ТІтадеЬЫ, предварительно установив их размер: 


НеідЬѢ =32 
теісіиі = 32 


Рисунки фишек и клеток поля (Рис. 4.8) мы разместим в компонентах 
ТІтаде на форме (если вам больше нравятся списки ТІтадеЬЫ, то вы легко 
можете подправить код программы). 


- ітдО - ітдОО 
Рис. 4.8. Фишки-малышки 


ітді 


- ітд2 


- ітдЗ ^ - ітд4 


Для удобства решения (и «красивости») грани фишек окрашены в разные 
цвета, а клетки поля имеют разную интенсивность окраски. Те клетки 
игрового поля, которые соответствуют клеткам правого поля с фишками, 
мы будем окрашивать светлее, чтобы выделить «игровые» клетки, в 
которые следует ходить. 

Верхний левый угол поля мы по-прежнему используем для анимации, 
только сделаем её более «изощрённой» - там будет пульсировать кубик с 
четырьмя точками. Три картинки (Рис. 4.9) для анимации мы загрузим в 
компонент ТІтадеЬЫ ітІАпіта (не забудьте установить размер картинок 
32 на 32 пикселя!). 



Рис. 4.9. Четырёхточечный «пульсар» 

Номер текущей (видимой) картинки хранится в глобальной переменной-. 


^ІдПазЬ: іп1:едег= 0; 


Она последовательно принимает значение 0, 1, 2, 0,1, 2, ..., в соответствии 
с которым и выводится в ячейку картинка из списка. Частота пульсации 
определяется свойством Іпіегѵаі таймера. Неплохие результаты 
получаются, если установить Іпіегѵаі = 100. 


//ПУЛЬСИРОВАНИЕ УГЛОВОГО КВАДРАТИКА 

ргосесіиге ТЕогтІ . Тітег2Тітег (Зепсіег : ТОЬ^есЬ); 

ѵаг 

гесЬ: ТКесЬ; 
п: іпЬедег; 

Ьедіп 








//угловой квадратик поля: 
гесР:= сідРоІе . СеІІКесР (0,0) ; 

//номер картинки: 
сазе РІдЕІазЬ оР 

0,1: іпс ( РІдЕІазЬ) ; 

2: іпс ( ПдРІазЬ) ; 

3: Р1дЕ1азЬ:= 0; 
епсі; 

ІР Р1дЕ1азЬ= 3 РЬеп п:= 0 еізе п:= РІдЕІазЬ; 
ітІАпіта.Огаи(ЬдРоІе.Сапѵаз, гесР.ІеРР, гесР.Рор, п) ; 
епсі; //Тітег2Тітег 


Других премудростей в процедуре рисования ячейки игрового поля нет: 


//ОТРИСОВАТЬ ЯЧЕЙКУ ИГРОВОГО ПОЛЯ 

ргосесіиге ТРогшІ.сідРоІеБгаѵСеІІ (ЗепЬег : ТОЪ^есР; АСоІ, АКои: ІпРе- 
дег ; 

КесР: ТКесР; ЗРаРе: ТОгісШгаиЗРаРе); 
ѵаг 

п, т: іпРедег; 
г, сіг: ТКЕСТ; 

Ьедіп 

//какая фишка в ячейке: 
п:= тазРоІе[АСоІ, АКои]; 

// размеры картинок : 

г:= Воипсіз (0, 0, 32, 32); 

сіг:= Воипсіз (КесР. ЪеРР, КесР.Тор, 32, 32); 
ш:= 100 * АКои + АСоІ; 
сазе т оР 

0..13: //- верхняя строка 

ітІЫоРа . Ьгаи (сідРоІе . Сапѵаз, сіг.ІеРР, сіг.Рор, т) ; 

100, 200, 300, 400, 500, 600, 700, 800, 
900,1000,1100,1200,1300: //- первая колонка 

ітІЫоРа . Ьгаи (сідРоІе . Сапѵаз, сіг.ІеРР, сіг.Рор, т сііѵ 100 + 13); 
еізе Ьедіп 
сазе п оР 


0 : 


1: 
2 : 
3 : 
4 : 


//- пустая клетка 
ІР тазРо1е2[АСоІ, АКои]<> 0 РЬеп 

сідРоІе . сапѵаз . СоруКесР (ЬК, ітдОО . Сапѵаз, К) 
еізе 

сідРоІе . сапѵаз . СоруКесР (ЬК, ітдО. Сапѵаз, К); 
//- фишка 1 


сідРоІе . сапѵаз . СоруКесР (ЬК, 
//- фишка 2 

ітді.Сапѵаз, 

К) ; 

сідРоІе . сапѵаз . СоруКесР (ЬК, 
//- фишка 3 

ітд2.Сапѵаз, 

К) ; 

ЬдРоІе.сапѵаз.СоруКесР(ЬК, 
//- фишка 4 

ітдЗ.Сапѵаз, 

К) ; 

ЬдРоІе.сапѵаз.СоруКесР(ЬК, 

ітд4.Сапѵаз, 

К) ; 


епсі 

епсі 

епсі; 






епсі; / / сідРоІеВгамСеІІ 


Из-за различия в размерах ячеек правого поля и рисунков с оцифровкой и 
фишками нам придётся картинки «ужимать». С картинками-фишками всё 
достаточно просто, так как мы можем применить к ним для вывода в 
ячейки удобный метод канвы ЗігеісШгаѵѵ (поэтому, для сравнения, эти 
картинки и размещены в компонентах ТІтаде, а не в ТІтадеЬЫ ). Но 
компонент ТІтадеЬЫ такого метода не имеет и выводит картинки только 
того размера, который задан его свойствами Неідкі: и ѴѴШН (то есть 32 на 
32 пикселя), а размеры ячеек правого поля в два раза меньше (16 на 16 
пикселей) - тут нам никак не избежать дополнительного растра Ьтр в 
памяти компьютера. Сначала мы скопируем картинку из списка его 
методом в растр, а уже оттуда - в нужную ячейку сетки с 

масштабированием, используя метод канвы ЗігеІсЬОгаѵѵ. Слегка 
замысловато, но зато не нужно заготавливать два комплекта рисунков 
разного размера. 


//ОТРИСОВАТЬ ЯЧЕЙКУ ПОЛЯ-ОБРАЗЦА 

ргосесіиге ТРостпІ .с1дРо1е2БгамСе11 (Зепсіег: ТОЬдесЬ; АСоІ, АРои: Іп- 
Ьедег; 

РесЬ: ТРесЬ; ЗЬаЬе: ТСгісШгамЗЬаЬе) ; 
ѵаг 

п, т: іпЬедег; 
г, сіг: ТРЕСТ; 

Ьтр: ТВі Стар; 

Ьедіп 

//фишка в ячейке : 

п:= тазРо1е2[АСоІ, АРои]; 

// размеры картинок : 

г:= ВоипЬз (О, 0, 16, 16); 

сіг:= Воипсіз (РесЬ. ЪеТЬ, РесЬ.Тор, РесЬ.РідЬЬ- 
РесЬ . ЪеЬЬ,РесЬ .ВоЬЬош-РесЬ. Тор) ; 

т:= 100 * АРои + АСоІ; 

Ътр:= ТВіЬтар.СгеаЬе; 

Ьтр . ИісІЫі: = 32; 

Ьтр.НеідЬЬ:= 32; 

сазе т оЬ 

0..13: //- верхняя строка 
Ьедіп 

ітІИоЬа.Бгаи(Ьтр.Сапѵаз, 0, 0, т); 

ЬдРо1е2.сапѵаз.ЗЬгеЬсЬОгаи (ЬР, Ьтр); 
епсі; 

100, 200, 300, 400, 500, 600, 700, 800, 
900,1000,1100,1200,1300: //- первая колонка 
Ьедіп 

ітІИоЬа . Бгаи (Ьтр . Сапѵаз, 0, 0, т сііѵ 100 + 9); 






сідРо1е2 . сапѵаз . ЗЬгеЬсіШгавд' (сіК, Ьтр) ; 
епсі; 

еізе Ьедіп 
сазе п оЬ 


0: //- пустая клетка 

сідРо1е2 . сапѵаз . ЗЬгеЬсііОгаѵ (ЬК, 
1: //- фишка 1 

сідРо1е2 . сапѵаз . ЗЬгеЬсііОгавд' (сіК, 
2: //- фишка 2 

сідРо1е2 . сапѵаз . ЗЬгеЬсЬОгавд' (сіК, 
3: //- фишка 3 

сідРо1е2 . сапѵаз . ЗЬгеЬсііОгаѵ (ЬК, 
4 : //- фишка 4 

сідРо1е2 . сапѵаз . ЗЬгеЬсЬОгавд' (сіК, 

епсі 

епсі 

епсі; 

Ьтр.Ггее; 

сідРоІе. ІпѵаіісіаЬе; 
епсі; //ЬдРо1е2БгаѵСе11 


ітдО . РісЬиге . Сгаріііс) ; 
ітді. РісЬиге . Сгаріііс) ; 
ітд2 . РісЬиге . Сгаріііс) ; 
ітдЗ . РісЬиге . Сгаріііс) ; 
ітд4 . РісЬиге . Сгаріііс) ; 


Запустив программу, мы увидим пустые поля, ведь никто не 
побеспокоился загрузить задание. Что ж, позаботимся о себе сами. Проще 
всего расставлять фишки, нажимая левую кнопку мыши на нужной клетке 
поля. Сколько раз кликнул, такая фишка и появилась (место фишки с 
четырьмя очками займёт пустая клетка, затем с одним очком и так далее]. 
На левом, игровом поле будет синхронно появляться бледный образ 
будущей задачи. 


//ПОСТАВИТЬ ФИШКУ НА ПОЛЕ-ОБРАЗЦЕ 

ргосесіиге ТЕогшІ . <1дРо1е2МоигеОоѵт (ЗепЬег : ТОЪ^есЬ; ВиЬЬоп : ТМоизе- 
ВиЬЬоп; 

ЗіііЬЬ: ТЗіііЬЬЗЬаЬе; X, У: ІпЬедег) ; 
ѵаг 

АСо1,АКоѵ: ІпЬедег; 

Ьедіп 

//координаты мыши: 

ЬдРо1е2.МоизеТоСеІІ(х,у,АСоІ,АКоѵ); 

//нажата левая кнопка мыши - ставим след, фишку: 

ІЬ (ззЪеЬЬ іп зіііЬЬ) Ыіеп Ьедіп 
іпс(тазРо1е2[АСоІ,АКоѵ]); 

ІЬ шазРоіе2 [АСоІ, АКои] >4 Ьііеп шазРоіе2 [АСоІ, АКои] := 0; 
сідРо1е2 . ІпѵаіісіаЬе; 
епсі 

епсі; //ЬдРо1е2МоизеБоѵп 


В качестве примера вы можете ввести задачи для самостоятельного 
решения. 






И вот задача ждёт своего решателя. А он (то есть мы] уже тут как тут - 
нажимаем левую кнопку мыши в нужной клетке - и фишка с одним 
глазком сейчас же появляется в ней. Со вторым ходом сложнее - нужно 
изменить все соседние фишки. Эту операцию мы поручим функции ЭоМоѵе, 
которая вернёт нам поле со всеми изменениями: 


//выполнить ход 

^ипсЬіоп ТРогшІ . БоМоѵе (агг: ТРоІе; х, у: іпРедег) : ТРоІе; 
ѵаг і: іпіедег; 

Ьедіп 

гезиіі:= агг; 

//нельзя ходить в занятую клетку: 
іі агг[х Л у]<> 0 ЬЬеп Ьедіп Ьес (ЬоЬ) ; ехіі; епсі; 

// изменить соседние фишки: 

іог і:= Мах(у-1,1) іо Міп (у+1 , сідРоіе .КомСоипі-1) сіо //- верти¬ 
кальный ряд 
Ьедіп 

іі агг[х,і] <> 0 ЬЬеп іпс (агг[х,і]); 
іі агг[х,і]>4 ЬЬеп агг[х,і]:= 1; 
епЬ; 

іог і:= Мах(х-1,1) іо Міп (х+1 , сідРоіе . СоіСоипі-1) сіо //- горизон¬ 
тальный ряд 
Ьедіп 

іі агг[і,у] <> 0 ЬЬеп іпс (агг[і,у]); 
іі агг[і,у]>4 ЬЬеп агг[і А у]:= 1; 
епЬ; 

//поставить в заданную клетку фишку 1: 
агг[х,у]:= 1; 
гезиіі:= агг; 
епсі; //РоМоѵе 


Эта функция понадобится нам ещё и в другом модуле, поэтому её 
объявление следует перенести в раздел риЫіс типа формы: 


риЫіс 

{ РиЫіс ДеЫагаЫопз } 

РипсЫоп ОоМоѵе(агг: ТРоІе; х, у: іпДедег) : ТРоІе; 
РипсДіоп ІзКеасіу: Вооіеап; 
ргосесіиге Кеасіу; 


Очень удобно иметь перед глазами запись всех сделанных ходов, как это 
принято в шахматах. У нас уже имеется форма /гтРгоіокоІ для ведения 
протокола, так что нам осталось усовершенствовать её так, чтобы она 
всегда была на экране. 

ЪеіЪ = 600 
Тор = 332 

Вогсіегісопз = [ ] 

ВогсіегЗ'ЬуІе = ЬзЗіпдІе 
Сар'Ьіоп = ' Протокол ' 






СИепЬНел.дЬ'Ь = 215 
СІіепѣШ.сІ'Ыі = 191 
РопЬ.Ыате = 'М8 Запз ЗегіЬ' 

РогшЗ'ЬуІе = ЬзЗЬауОпТор (располагаем форму поверх других окон 
приложения) 


Модуль формы протокола нужно объявить в модуле ІодозѴпіі, чтобы 
сделать его доступным в главном модуле. 

ітріетепЬаЬіоп 

изез РгоЬокоШпіЬ, РеасІуипіЬ; 


Чтобы форма с протоколом не перекрывала элементы управления на 
главной форме, выводим её в правом нижнем углу: 


//ПОКАЗАТЬ ФОРМУ 

ргосесіиге ТРогхпІ . ГогтЗІіоѵ (Зепсіег: ТО^есЬ) ; 

Ьедіп 

ореп ( 1 001.Ідз 1 ); 

ЬгтРгоЬокоі.зЬои; 
епсі; //ЕогтЗЬоѵ 

ргосесіиге ТРогтІ. РогтАсЬіѵа'Ье (Зепсіег: ТОЬіесЬ) ; 

Ьедіп 

ЬгтРгоЬокоІ.ЬеЬЬ : = ЬогтІ.ЬеЬЬ + ІЫНосі. ЬеЬЬ; 

ЬгтРгоЬокоІ. Тор := ЬогтІ.Тор + ІЫНосі. Тор+ІЫНосІ. НеідЬЫ-35; 
епсі; //ЕогтАсЬіѵаЬе 


Обратите внимание, что при каждом ходе записывается его номер и 
координаты клетки - в том виде, как это делается в настольных играх (а 
иначе зачем мы делали оцифровку полей?). И напоследок нужно 
проверить, а не решена ли задача. Для этого после каждого хода мы 
вызываем функцию ІзКеасІу, которая сравнивает оба поля и, если они 
полностью совпадают, возвращает значение Тгие : 


//ПРОВЕРИТЬ, НЕ РЕШЕНА ЛИ ЗАДАЧА 

^ипсЫоп ТРогтІ . ІзКеасіу : Вооіеап; 

ѵаг 

і, ^: іпЬедег; 

Ьедіп 

Кези1Ь:= Тгие; 

Ьог ;]:= 1 Ьо сідРоіе. КоиСоипЬ-1 сіо 
Ьог і:= 1 Ьо сідРоІе. СоІСоипЬ-1 сіо 

іЬ тазРоІе[і,з]<> тазРо1е2[і,з] ЬЬеп 
Ьедіп Кези1Ь:= Еаізе; ехіЬ епсі 
епсі; //ІзКеасіу 








Если вам повезёт, то программа поздравит вас с успехом надлежащей 
надписью. Хотелось бы миг победы сделать ещё более приятным, поэтому 
давайте художественно изобразим поздравление на отдельной форме 
/гтКеаду (Рис. 4.10). 


Вы сделали это! 


і 



Рис. 4.10. Молодца! 

Аи'ЬоЗіге = Тгие 
ВогсіегЗ'ЬуІе = ЬзЫопе 
Розі'Ьіоп = роВезкЕорСепкег 


Всю клиентскую часть занимает компонент Ітадеі: Тітаде : 

= 0 

Тор = 0 
Ш-сіЫі = 353 
НеідЬ-Ь = 170 

На нём установите метку ЬаЪеІІ : 

ь еіъ =12 
Тор = 32 
ЮісИЛ = 32 9 
НеідЬ-Ь =46 

Сар-Ьіоп = 'Вы сделали это! ' 

Ропѣ . СЬагзе'Ь = КОЗЗІАЫ_СНАКЗЕТ 

Роп'Ь.СоІог = сІВІие 
ГопВ.НеідЫі = -40 

Ропѣ-Иате = 'АгіаІ' 

Роп'Ь.З'ЬуІе = [ЕзВоІсі] 

Тгапзрагепѣ = Тгие 

В процедуре Кеаду метка возвращается в исходное положение (скоро вы 
узнаете почему), форма с надписью показывается на экране и запускается 
таймер Тітегі : 


//ЗАДАЧА РЕШЕНА! 

ргосесіиге ТРогхпІ. Кеасіу; 

Ьедіп 


























гер:= 0; 

Кеасіуііпііі . ЕгтКеасІу . ІаЬеІІ. Тор : = 32 ; 
ЕгтКеасІу. ЗЬом; 

■Ьітег 1. ЕпаЫесі: = Егие ; 
епсі; //Кеасіу 


Таймер (ЕпаЫесі = Раізе, Іпіегѵаі = 100 ) периодически вызывает процедуру 
ОиіКеаду, где фон заполняется случайными точками серого и белого 
цветов: 


//СОЗДАТЬ ФОН ДЛЯ НАДПИСИ 

ргосесіиге ОиЬКеаДу; 

ѵаг 

Ьтр: ТВі Стар; 
і, ^: іпЬедег; 

Ьедіп 

//создать временный растр: 

Ьтр:=ТВіЬтар.СгеаЬе; 

Ьтр . НеідЬЬ : = КеаДуДГпіЬ . ДгтКеаДу. Ітадеі. НеідЬЬ; 

Ьтр . ИіДЬЬ: = КеаДуИпіЬ . ДгтКеаДу. Ітадеі. ИіДЬЬ; 

//заполнить его точками серого и белого цвета: 

Дог ^:= 0 Ьо Ьтр.НеідЬЬ До 
Дог і:= 0 Ьо Ьтр.ИіДЬЬ До 

ІД гапДот(2) = 0 ЬЬеп Ьтр.Сапѵаз.Ріхеіз[і, 3 ]:= сібгау 
еізе Ьтр.Сапѵаз.Ріхеіз[і,з]:= сІИЬіЬе; 

//обвести рамкой: 

Ьтр.Сапѵаз.ВгизЬ.ЗЬуіе:= ЬзСІеаг; 

Ьтр.Сапѵаз. Реп .ИіДЬЬ:= 5; 

Ьтр.Сапѵаз. Реп .Соіог:= сІУеІІом; 

Ьтр.Сапѵаз.КесЬапдіе(0,0,Ьтр.ИіДЬЬ,Ьтр.НеідЬЬ); 
//скопировать в объект Ітадеі: 

КеаДуііпіЬ . ДгтКеаДу. Ітадеі. РісЬиге . ВіЬтар . Аззідп (Ьтр) ; 
//уничтожить растр: 

Ьтр.Ргееітаде; 
епД; //ОиЬКеаДу; 


На этот фон накладывается надпись с поздравлением, которая медленно 
перемещается вниз и время от времени меняет цвет (Рис. 4.11). После 
исчерпания заданного числа срабатывания таймер выключается, а форма 
убирается с экрана: 


//ПОЗДРАВИТЬ 

ргосесіиге ТРогшІ . ТішегІТішег (Зепсіег: ТОЬіесД) ; 

Ьедіп 

ОиЬКеаДу; 
іпс (гер); 

ІД гер тоД 10 > 5 ЬЬеп КеаДуИпіЬ.ДгтКеаДу.ІаЬеІІ.ГопЬ.Соіог:= 
сІВІие 

еізе КеаДуЮпіЬ.ДгтКеаДу.ІаЬеІІ.ГопЬ.Соіог:= сІКеД; 

КеаДуДГпіЬ . ДгтКеаДу. ІаЬеІІ. Тор : = КеаДуДГпіЬ . ДгтКеаДу. ІаЬеІІ. Тор+1; 








ІЛ гер> 60 ЛЬеп Ьедіп 
Літегі.ЕпаЫесі: = Лаізе; 
ЛгтКеасіу. Нісіе ; 
епсі; 

епсі; //ТітегІТітег 



Рис. 4.11. Художественная вещь! 

Если вы захотите выставить позицию на игровом поле, то нажимайте 
левую кнопку мыши, удерживая клавишу 5Ы/Ѵ. 


//ВЫСТАВИТЬ ФИШКУ ИЛИ СДЕЛАТЬ ХОД 

ргосесіиге ТРогшІ.сідРоІеМоизеБоѵт (Зепсіег : ТОЬ^есЛ; ВиЛЛоп: ТМоизе- 
ВиЛЛоп; 

ЗЬіЛЛ: ТЗЬіЛЛЗЛаЛе; X, У: ІпЛедег) ; 
ѵаг 

АСо1,АКоѵ: ІпЛедег; 

Ьедіп 

//координаты мыши: 

сідРоІе .МоизеТоСеІІ (х, у, АСоІ, АКом) ; 

ІЛ АСоІ * АКом = 0 ЛЬеп ехіЛ; 

//нажата левая кнопка мыши и клавиша ЗЬіЛЛ - 
//ставим след, фишку: 

ІЛ (ззЪеЛЛ іп зЬіЛЛ) апсі (ззЗЬіЛЛ іп зЬіЛЛ ) ЛЬеп Ьедіп 
іпс(тазРоіе[АСоІ,АКоѵ]); 

ІЛ тазРоіе[АСоІ,АКои]>4 ЛЬеп тазРоіе[АСоІ,АКои]:= 0; 
сідРоІе. ІпѵаіісіаЛе; 
епсі 

еізе ІЛ (ззЪеЛЛ іп зЬіЛЛ) апсі (ззАІЛ іп зЬіЛЛ ) ЛЬеп Ьедіп 
//не нужно ходить в пустую клетку: 

ІЛ тазРоіе[АСоІ, АКоѵ]= 0 ЛЬеп ехіЛ; 

//ход назад: 

тазРоіе:=ВаскМоѵе(тазРоіе, АСоІ, АКоѵ); 

іпс (Носі) ; ІЫНосі. СарЛіоп : = 'Ход - ' + іпЛЛозЛг (Носі) ; 

сідРоІе. ІпѵаіісіаЛе; 

//запомнить ход: 

Моѵез [Носі] . Со1:= АСоІ; 

Моѵез [Носі] .Кои:= АКои; 

Моѵез [Носі] . РозЬ : = тазРоіе; 

Носі тах:= Носі; 











//занести ход в протокол: 

РгтРгоРокоІ . ЬізкВохІ . ікетз . асісі ( Рогтак ( ? %3сі 1 , [Носі] ) + 1 + 

ІеРРег [АСоІ ] + 1 1 +іпРРозРг (АКом) ) ; 

епсі 

//нажата левая кнопка мыши без клавиши ЗЬіРР и А1Р - 
//делаем ход: 

еізе іР ззЬеРР іп зНіРР РЬеп Ьедіп 

ІР тазРоІе [АСоІ, АКом]<> 0 РЬеп ехір; 

тазРоІе : =РоМоѵе (тазРоІе, АСоІ, АКом) ; 

іпс (Носі) ; ІЫНосі. СарРіоп : = 1 Ход - ' + іпРРозРг (Носі) ; 

сідРоІе. ІпѵаІісіаРе; 

//запомнить ход: 

Моѵез [Носі] . Соі: = АСоІ; 

Моѵез [Носі] .Ком:= АКом; 

Моѵез [Носі] . РозЬ : = тазРоІе; 

Носі_тах: = Носі; 

//занести ход в протокол: 

РгтРгоРокоІ. ЬізРВохІ. іРетз . асісі (РогтаР ( 1 % 3 сі' , [Носі] ) + '. 1 + 

ІеРРег [АСоІ ] + ' ' РіпРРозРг(АКом)); 

//проверить, не решена ли задача: 

ІР ІзКеасіу РЬеп Кеасіу; 
епсі 

епсі; / / сідРоІеМоизеРоѵт 


Дабы обеспечить себе возможность возврата к прежним позициям, мы 
запоминаем очередной ход и позицию на обоих полях в массиве Моѵез. 

А о том, для чего нужно удерживать клавишу Аіі, читайте дальше. 


Всплывающее меню 

Всплывающее меню в этой программе существенно уменьшилось в 
размерах по сравнению с игрой 57 ? огіСате (Рис. 4.12]. 


ф"’ Запомнить позицию к 

СігІ+І 

Восстановить позицию 

Л 'і ОгІ+О 

Ход назад 

СігІ-КІ 

СМ Ход вперёд 

СігІ+Д 

^ Правила 

СІГІ4Р 


Рис. 4.12. Всплывающее меню 

Вы даже можете совсем удалить его из проекта, заменив все оставшиеся 
пункты меню кнопками на форме, благо места для них теперь более чем 
достаточно. 











Выбрав первый пункт меню, вы запомните игровую ситуацию 


//ЗАПОМНИТЬ ПОЗИЦИЮ 

ргосесіиге ТРогшІ . Мешогу Іп ; 

Ьедіп 

Мешогу. ЬоЬ: = Носі; 

Мешогу .РозЬ:= шазРоІе; 

Методу.РозК:= шазРо1е2; 
епсі; //Мешогуіп 

ргосесіиге ТРогшІ.шіМешогуІпСІіск (Зепсіег: ТО^есЬ) ; 
Ьедіп 

Мешогуіп; 

епсі; //шіМешогуІпСІіск 


А затем в любое время сможете вернуться к ней, щёлкнув на втором 
пункте : 


//ВОССТАНОВИТЬ ПОЗИЦИЮ НА ПОЛЕ 

ргосесіиге ТРогшІ .шіМешогуОиЬСІіск (Зепсіег : ТОЪ^есЬ) ; 

ѵаг і: іпЬедег; 

Ьедіп 

міЬЬ Мешогу сіо Ьедіп 
шазРоІе:= РозЬ; 
шазРоіе2:= РозК; 
епсі; 

сідРоІе. ІпѵаіісіаЬе; 

ЬдРо1е2 . ІпѵаіісіаЬе; 

Носі:= Методу. Ьосі; 

ІЫНосі. СарЬіоп : = 'Ход - ' + іпЬЬозЬг (Ьосі) ; 

//обновить протокол: 

РдтРдоЬокоІ.ЬізЬВохІ.іЬешз.Сіеаг; 

Рог і:= 1 Ьо Ьосі сіо 

РдтРдоЬокоІ . ЬізЬВохІ. ІЬешз . асісі (РодтаЬ (' % 3 сі',[ і ] ) + '. ' + 

ІеЬЬег[Моѵез[і].Соі]+ ' ' 

+іпЬЬозЬг(Моѵез[і].Воѵ)); 
епсі; //шіМешогуОиЬСІіск 


Следующий пункт меню вернёт вас к предыдущему ходу. А чтобы не 
возникало временных коллизий, откат ограничен запомненной позицией: 


//ВЕРНУТЬ ХОД 

ргосесіиге ТРогшІ .тіШісіоСІіск (Зепсіег: ТОІ^есЬ) ; 

ѵаг і: іпЬедег; 

Ьедіп 

ІР Ьосі= Мешогу. Носі РЬеп ехір; 

Ьес (Ьосі) ; 

ІЫНосі. СарЬіоп : = 'Ход - ' + ІпЬЬозЬг (Ьосі) ; 

шазРоіе:= Моѵез [Ьосі] . РозЬ; 
сідРоІе. ІпѵаіісіаЬе; 

//обновить протокол: 

РгшРгоЬокоі.ЬізЬВохІ.ІЬешз.Сіеаг; 








ког і:= 1 1:о Носі сіо 

кгтРгококоІ. ЬізкВохІ. ікетз . асісі ( когтак ( ' %ЗЬ' , [і] ) + '. ' + 

Іеккег[Моѵез[і].Соі]+ ' 

+іпккозкг (Моѵез [ і ] . Роѵ) ) ; 
епсі; //тіИпсіоСІіск 


С той же лёгкостью вы сможете повторить отвергнутый ход: 


//ОТМЕНИТЬ ПОСЛЕДНИЙ ВОЗВРАТ ХОДА 

ргосесіиге ТРогшІ . тіКесіоСІіск (Зепсіег: ТОЬіесЬ) ; 

ѵаг і: іпкедег; 

Ьедіп 

ік НосК Носі_тах кЬеп іпс (Носі) 
еізе ехік; 

//восстановить позицию на игровом поле: 
тазРоІе : =Моѵез [Носі] . РозЪ ; 
сідРоІе. Іпѵаіісіаке; 

ІЫНосі. Саркіоп : = 'Ход - ' + іпккозкг (Носі) ; 

//обновить протокол: 

ЕгтРгобокоІ.ЪізкВохІ.ікетз.Сіеаг; 

^ог і:= 1 ко Носі сіо 

кгтРгококоІ. ЪізкВохІ. ікетз . асісі ( Ногтак ( 1 % 3 сі',[ і ] ) + + 

Іеккег[Моѵез[і].Соі]+ ' ' 

+іпккозкг(Моѵез[і].Воѵ)); 
епсі; //тіКесіоСІіск 


Последний пункт меню, показывающий справочный файл, мы рассмотрим 
после того, как закончим конструирование интерфейса программы. 

Весьма удобной может оказаться возможность обнулитъ ходы. Для этого 
достаточно просто щёлкнуть на метке, показывающей число сделанных 
ходов: 


//ОБНУЛИТЬ ХОДЫ 

ргосесіиге ТРогшІ . ІЫНосіСІіск (Зепсіег: ТОЬіеск) ; 

Ьедіп 

Носі: = 0; НосІ_тах: = 0; 

ІЫНосі. Саркіоп : = 'Ход - О'; 
кгтРгококоІ. ІізкЬохІ. ікетз . асісі ( ' ' ) ; 
епсі; //ІЫНосіСІіск 


«Отзывчивые» кнопки 

Вы, должно быть, много раз видели в различных программах кнопки, 
которые изменяют свой вид, когда курсор мыши заходит на них, и 
возвращаются в прежнее состояние, когда он их покидает. Ничего не 
скажешь, эффектное зрелище! А между тем такие визуальные 
превращения нетрудно встроить и в свою собственную программу. Можно 








даже использовать кнопки из программы ЗкогіСате, если их чуточку 
доработать. Так мы и сделаем, а также добавим ещё несколько кнопок, 
необходимых для работы данной программы. 

Все заранее подготовленные картинки в формате ВМР загрузите в 
компоненты ТІтаде на форме (Рис. 4.13). 
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Рис. 4.13. Кнопочки программные! 

Обратите внимание на то, что розовые кнопки немного больше по размеру, 
чем синие (величина всех картинок одинакова - 36 х 36 пикселей, чтобы 
центры кнопок в обоих положениях совпадали), поэтому кнопка под 
мышкой будет не только изменять цвет, но и «раздуваться». 


Вот так выглядит форма с компонентами в окне Конструктора формы 
(Рис. 4.14). 

















Рис. 4.14. Кнопочный боекомплект! 

Как и в игре ЗНогіСате, для каждой кнопки нужно установить на форме 
ещё один компонент ТІтаде и загрузить в него ту картинку, которая 
соответствует неактивной (отжатой) кнопке. Большинство свойств у этих 
компонентов одинаковы (у «некруглых кнопок» другие размеры и верхняя 
координата): 

теісіиі = 3б 
НеідЬѢ =36 
Тор = 4 

Аи'ЬоЗіге = Тгие 
Сигзог = сгНапсІРоіпІ: 

ЗЪоѵНіп'Ь = Тгие 
Тгапзрагепѣ = Тгие 

Различаются у них свойства Ніпі: (подсказка), Ье/1, Тор (положение на 
форме) и Тад (по нему мы и будем определять, над какой кнопкой 
находится курсор мыши). 





























































































































































Рассмотрим действие самой простой кнопки - Выход. Она сделана в ином 
стиле, чем все остальные кнопки, чтобы по ошибке не «выпасть» из 
программы. Её изображение находится в компоненте ітдЕхіІ I (Рис. 4.15). 



Рис. 4.15. Выход есть всегда! 

Ье^Ь = 628 
Тор = 5 
НеідЬЬ =34 
Ш.<Ші =89 

НіпЬ = 'Выход из программы' 

Тад = 111 

ОпМоизеБоѵп = ітдЕхіЬМоизеБомп 
ОпМоизеМоѵе = ЕогтМоизеМоѵе 
ОпМоизеЧр = ітдЕхіЬМоизеІІр 

При нажатии на эту кнопку возникает событие, которое обрабатывается 
процедурой ітдЕхііМоизеОоѵѵп. В ней просто одна картинка заменяется 
другой: 


//ЗАКРЫТЬ ПРОГРАММУ 

ргосесіиге ТЕогшІ . ітдЕхіЬМоизеБоѵт (Зепсіег : ТОЪ^есЬ; 
ВиЬЬоп; 

ЗЬіЬЬ: ТЗЬіЬЬЗЬаЬе; X, У: ІпЬедег); 

Ьедіп 

ітдЕхіЬ.РісЬиге.Аззідп(Ітаде20.РісЬиге); 
епсі; //ітдЕхіЬМоизеБоип 

ВиЬЬоп: ТМоизе- 

При отпускании кнопки возвращается прежняя картинка и программа 
закрывается: 

ргосесіиге ТЕогшІ. ішдЕхіШоизеОр (Зепсіег : ТОЪ^есЬ; 
ВиЬЬоп; 

ЗЫГЬ: ТЗЫГЬЗЬаЬе; X, У: ІпЬедег) ; 

Ьедіп 

ітдЕхіЬ.РісЬиге.Аззідп(Ітаде17.РісЬиге); 
сіозе 

епсі; //ітдЕхіЬМоизеіір 

ВиЬЬоп: ТМоизе- 


Но самые интересные превращения кнопки происходят тогда, когда на неё 
«наезжает» курсор. Вообще-то мы не можем определить момент захода 
курсора на кнопку и схода с неё, так как у компонента ТІтаде нет 
соответствующего события (это верно для «старых» версий ЮеІрЫ, в ТигЪо 
эти события имеются, но для совместимости мы поступим не самым 






лучшим образом!). Поэтому придётся воспользоваться другим свойством - 
МоизеМоѵе, которое возникает при движении мыши по компоненту. 

Так как кнопок у нас довольно много, то нужно добавить в проект более 
десятка похожих процедур. Хуже того - подобные процедуры потребуются 
и для других компонентов на форме и самой формы, иначе нам не удастся 
зафиксировать момент схода курсора с кнопки - ведь при этом не 
возникает никакого события, просто курсор начнёт перемещаться по 
другому компоненту. Правильнее будет всю обработку перемещений 
курсора перенести в одну процедуру, например РогтМоизеМоѵе, в которой 
и определять, где находится курсор. 

По умолчанию значение свойства Тад у всех компонентов (и у формы в том 
числе) равно нулю , поэтому, присвоив кнопкам другие, индивидуальные 
значения, мы сможем установить, какая кнопка ( Зепйег ) вызвала этот 
обработчик. 

Но, в первую очередь, необходимо обеспечить прямое попадание в 
процедуру РогтМоизеМоѵе при движении курсора на других компонентах. 
Поэтому для каждого компонента (кнопок и всех близлежащих) в 
Инспекторе объектов, на вкладке Еѵепіз следует присвоить свойству 
ОпМоизеМоѵе значение РогтМоизеМоѵе (достаточно выбрать его из 
выпадающего списка). Вот теперь при заходе курсора на кнопки и сходе с 
них будет вызываться процедура РогтМоизеМоѵе. По значению свойства 
Тад мы определяем, какой компонент находится под курсором. Но тут есть 
одна тонкость. Если курсор только что зашёл на кнопку, то картинка на 
ней изменилась и при дальнейшем движении её больше не нужно 
выводить на кнопку, иначе она будет слегка мигать. 

Чтобы избежать этого, в глобальной переменной 


БазЪСошр: іпСедег= 0; 


мы будем хранить значение тега того компонента, который перед этим 
вызывал процедуру РогтМоизеМоѵе. Тогда мы легко проверим, сменился 
компонент или нет. Если это тот же самый компонент, то мы просто 
завершаем процедуры, без всяких последствий для кнопки. 

Ну а дальше всё просто. Если курсор заходит на «новую» кнопку, то 
картинка на ней изменяется, а значение тега запоминается в переменной 
ІазіСотр. Если до этого курсор был на другой кнопке, то прежде её следует 
вернуть в неактивное состояние: 


//МЫШКА ПЕРЕМЕЩАЕТСЯ ПО ФОРМЕ И КОМПОНЕНТАМ НА НЕЙ 






ргосесіиге ТРогтпІ . РогтпМоизеМоѵе (Зепсіег : ТОЪ^есІс; 5Ы1:1с: 

ТЗЪі^ЗЪаЪе; X, 

У: Іпіседег) ; 

ѵаг п: іпЪедег; 

Ьедіп 


//на каком компоненте находится курсор: 

п:= (Зепсіег аз ТСотропепІс) . Ісад; 

/ / ТОТ 

же компонент - ничего не делать : 

п= 

ЪазЪСотр ЪЪеп ехіЪ; 

//выключить прежнюю кнопку: 

сазе ЪазІсСотр оі 

101 

ІтдЗаѵеРозЪ.РісЬиге.Аззідп(Ітаде19.РісЬиге); 

102 

ІтдСІеагЪ.РісЬиге.Аззідп(Ітаде4.РісЬиге); 

103 

ІтдЗаѵеРозК.РісЬиге.Аззідп(Ітадеі9.РісЬиге); 

104 

ітдОреп . РісЬиге .Аззідп (ІтадеЮ . РісЬиге) ; 

105 

ІтдСіеагК.РісЬиге.Аззідп(Ітаде4.РісЬиге); 

106 

ітдЗоІиЪіоп . РісЬиге .Аззідп (Ітадеі4 . РісЬиге) ; 

107 

ІтдСоруЪК.РісЬиге.Аззідп(Ітаде12.РісЬиге); 

108 

ітдСоруКЪ.РісЬиге.Аззідп(Ітадеб.РісЬиге); 

109 

ітдііпсіо . РісЬиге . Аззідп (Ітаде2 . РісЬиге) ; 

110 

ітдКесіо . РісЬиге .Аззідп (Ітаде8 . РісЬиге) ; 

111 

ітдЕхіІ:. РісЬиге . Аззідп (Ітаде20 . РісЬиге) ; 

112 

ітдНеІр.РісЬиге.Аззідп(Ітаде22.РісЬиге); 

епсі; 


//зашли на новую кнопку - включить: 

Ъаз1сСотр:= (Зепсіег аз ТСотропепІс) . Ісад; 

сазе ЪазІсСотр оі 

0 

ехі-Ь; //- не кнопка 

101 

ІтдЗаѵеРозЪ.РісЬиге.Аззідп(Ітадеі8.РісЬиге); 

102 

ІтдСІеагЪ.РісЬиге.Аззідп(ІтадеЗ.РісЬиге); 

103 

ІтдЗаѵеРозК.РісЬиге.Аззідп(Ітадеі8.РісЬиге); 

104 

ітдОреп.РісЬиге.Аззідп(Ітаде9.РісЬиге); 

105 

ІтдСіеагК.РісЬиге.Аззідп(ІтадеЗ.РісЬиге); 

106 

ітдЗоІиЪіоп.РісЬиге.Аззідп(ІтадеІЗ.РісЬиге); 

107 

ІтдСоруЪК.РісЬиге.Аззідп(Ітадеі1.РісЬиге); 

108 

ітдСоруКЪ.РісЬиге.Аззідп(Ітаде5.РісЬиге); 

109 

ітдЪпсіо . РісЬиге .Аззідп (Ітадеі. РісЬиге) ; 

110 

ітдКесіо . РісЬиге . Аззідп (Ітаде7 . РісЬиге) ; 

111 

ітдЕхіЪ.РісЬиге.Аззідп(Ітаде17.РісЬиге); 

112 

ІтдНеІр.РісЬиге.Аззідп(Ітаде21.РісЬиге); 

епсі; 


епсі; //РогшМоизеМоѵе 


Вы можете добавлять сколько угодно своих кнопок, не забывая при этом 
дописывать нужные строки в процедуру РогтМоизеМоѵе. Так как 
изображения кнопок в активном и пассивном положениях могут быть 
любыми, то вам доступны всякие визуальные эффекты. Вот так простыми 
средствами можно получить вполне профессиональный интерфейс. 






Но продолжим разбор кнопок. 


Очень просты в программировании кнопки, которые дублируют пункты 
меню. Например, кнопки ітдіітіо и ітдКесІо вынесены на форму для 
удобства пользования, так как постоянно открывать меню - занятие 
довольно нервное. Они попросту вызывают те же процедуры, что и 
соответствующие пункты меню. 

Л*і« 


ЬеДД = 168 

Тор = 8 

НеідЬД = 27 

Ш.СІ1Л =37 

НіпД = ' Ход назад ' 

Тад = 109 

ОпМоизеОоѵп = ітдОпсіоМоизеВоѵт 
ОпМоизеМоѵе = ГогтМоизеМоѵе 
ОпМоизеЧр = ітдШсіоМоизеОр 



ЬеДД = 224 


НіпД = ' Ход 
Тад = 110 

ОпМоигеБоѵт 
ОпМоизеМоѵе 
ОпМоизеЦр = 


вперёд ' 

= ітдКесІоМоизеВоѵт 
= ГогтМоизеМоѵе 
ДтдКеЬоМоизеДр 


//ВОЗВРАТ ХОДА 

ргосесіиге ТРогтІ. ІтдШісіоМоигеОоѵт (Зепсіег : ТОЬ^есД; ВиДДоп: ТМоизе- 
ВиДДоп; 

ЗЫДД: ТЗЫДДЗДаДе; X, У: ІпДедег); 

Ьедіп 

ітдіГпсіо . РісДиге . Аззідп (Ітаде2 . РісДиге) ; 
епсі; //ітдДпсіоМоизеВоѵп 

ргосесіиге ТРогтІ. ітдШісіоМоизеир (Зепсіег: ТОІ^есД; ВиДДоп: ТМоизе- 
ВиДДоп; 

ЗЫДД: ТЗЫДДЗДаДе; X, У: ІпДедег); 

Ьедіп 

шіІІпсіоСІіск (ЗеІД) ; 

ітдДпсіо . РісДиге .Аззідп (Ітадеі. РісДиге) ; 
епсі; / / ДтдОпЬоМоизеОр 

//ХОД ВПЕРЁД 

ргосесіиге ТРогтІ. ІтдКесіоМоигеОоѵт (Зепсіег: ТО^есД; ВиДДоп: ТМоизе- 
ВиДДоп; 

ЗЫДД: ТЗЫДДЗДаДе; X, У: ІпДедег); 

Ьедіп 

ітдКесіо . РісДиге .Аззідп (Ітаде8 . РісДиге) ; 







епсі; //ітдКесІоМоизеОоѵт 

ргосесіиге ТРогтІ. ітдКесіоМоизеир (Зепсіег : ТОЬ^есР; ВиРРоп : ТМоизе- 
ВиРРоп; 

ЗіііРР: ТЗЬіРРЗРаРе; X, У: ІпРедег); 

Ьедіп 

тіКесіоСІіск (ЗеІР) ; 

ітдКесіо . РісРиге . Аззідп (Ітаде7 . РісРиге) ; 
епсі; //ітдКесІоМоизеОр 


Несложно и убрать «мусор» с левого и правого полей. В первом случае 
достаточно занести в массив тазРоІе нули, а затем обновить поле. Во 
втором нужно обновить и правое, и левое поле, чтобы 
«синхронизировать» их содержимое. 



ітдСІеаги 

ЬеРР = 88 
Тор = 4 

НіпР = 'Очистить левое поле' 

Тад = 102 

ОпМоизеБоѵп = ішдСІеагЪМоизеВоип 
ОпМоизеМоѵе = ЕогтМоизеМоѵе 
ОпМоизеИр = ітдСІеагЪМоизеОр 

ітдСІеагН: 

ЬеРР = 580 

НіпР = 'Очистить правое поле' 

Тад = 105 

ОпМоизеБоѵп = ітдСІеагКМоизеВоѵт 
ОпМоизеМоѵе = ЕогтМоизеМоѵе 
ОпМоизеЧр = ітдСІеагКМоизеИр 


//ОЧИСТИТЬ ЛЕВОЕ ПОЛЕ 

ргосесіиге ТРогтІ. ітдСІеагІіМоизеБоѵт (Зепсіег : ТОЬдесР; ВиРРоп: 
ТМоизеВиРРоп; 

ЗіііРР: ТЗЬіРРЗРаРе; X, У: ІпРедег); 

Ьедіп 

ітдСІеагЪ.РісРиге.Аззідп(Ітаде4.РісРиге); 
епсі; //ітдСІеагЪМоизеБоѵп 

ргосесіиге ТРогтІ. ІтдСІеагЪМоизеОр (Зепсіег: ТО^есР; ВиРРоп: ТМоизе¬ 
ВиРРоп; 

ЗЬіРР: ТЗЬіРРЗРаРе; X, У: ІпРедег); 
ѵаг 

і, ^: ІпРедег; 

Ьедіп 

Рог ;]:= 1 Ро сідРоІе. КоиСоипР-1 сіо 
Рог і:= 1 Ро сідРоІе. СоІСоипР-1 сіо 







тазРоІе [і,^] := 0; 
сідРоІе. ІпѵаІісіаЬе; 

Метогуіп; 

ітдСІеагЪ.РісЬиге.Аззідп(ІтадеЗ.РісЬиге) ; 
епсі; //ітдСІеагЪМоизеир 

//ОЧИСТИТЬ ПРАВОЕ ПОЛЕ 

ргосесіиге ТРогтІ. ітдСІеагКМоизеБоѵт (Зепсіег : ТОЪ^есЬ; 

ВиЬЬоп: ТМоизеВиЬЬоп; ЗЬіЬЬ: ТЗЬіЬЬЗЬаЬе; X, У: ІпЬедег); 

Ьедіп 

ІтдСІеагК.РісЬиге.Аззідп(Ітаде4.РісЬиге); 
епсі; / / ІтдСІеагКМоизеБоѵт 

ргосесіиге ТРогтІ. ітдСІеагКМоизеОр (Зепсіег : ТОЪ^есЬ; ВиЬЬоп: ТМоизе¬ 
ВиЬЬоп; 

ЗіііЬЬ: ТЗЬіЬЬЗЬаЬе; X, У: ІпЬедег); 
ѵаг 

і, з: ІпЬедег; 

Ьедіп 

Рог ;]: = 1 Ьо сідРоіе2.КоиСоипЬ-1 сіо 
Рог і:= 1 Ьо сідРо1е2. СоІСоипЬ-1 сіо 
тазРо1е2[і,з]:= 0; 
сідРоіе2 . ІпѵаІісіаЬе; 
тазРоІе:= тазРо1е2; 
сідРоіе. ІпѵаІісіаЬе; 

Метогуіп; 

РгтРгоЬокоІ.ІізЬЬохІ.Сіеаг; 

ІтдСІеагК.РісЬиге.Аззідп(ІтадеЗ.РісЬиге); 
епсі; //ітдСІеагКМоизеЧр 


Очень полезными при разработке собственных заданий могут оказаться 
следующие кнопки. 

ітдСоруІ-РІ: 

© 

Ье^Ь = 428 

НіпЬ = 'Копировать в правое поле' 

Тад = 107 

ОпМоизеБоѵп = ітдСоруЬКМоизеБоѵт 
ОпМоизеМоѵе = ЕогтМоизеМоѵе 
ОпМоизеЧр = ітдСоруЪКМоизеТЗр 

ітдСоруРИ: 

© 

Ье^Ь = 480 

НіпЬ = 'Копировать в левое поле' 

Тад = 108 




ОпМоизеБоѵт = ітдСоруКЪМоизеЪоѵт 
ОпМоизеМоѵе = ЕогтМоизеМоѵе 
ОпМоизеЧр = ітдСоруКЪМоизеИр 

Нажатие на первую из них приводит к копированию фишек с левого поля в 
правое: 


//КОПИРОВАТЬ ЛЕВОЕ ПОЛЕ В ПРАВОЕ 

ргосесіиге ТРогшІ . ітдСоруІіКМоизеБоѵт (Зепсіег : ТОЪ^есЬ; ВиЬЬоп: 
ТМоизеВиЬЬоп; 

ЗЪіЬЬ: ТЗЪіЬЬЗЬаЬе; X, У: ІпЬедег); 

Ьедіп 

//заменить картинку: 

ІтдСоруЪК.РісЬиге.Аззідп(Ітаде12.РісЬиге); 
тазРо1е2:= тазРоІе; 
сідРо1е2 . ІпѵаіісіаЬе; 
епсі; //ітдСоруЪКМоизеБоѵп 

ргосесіиге ТРогшІ. ітдСоруЬКМоизеПр (Зепсіег: ТО^есЬ; ВиЬЬоп: ТМоизе¬ 
ВиЬЬоп; 

ЗЪіЬЬ: ТЗЪіЬЬЗЬаЬе; X, У: ІпЬедег); 

Ьедіп 

ІтдСоруЪК.РісЬиге.Аззідп(Ітадеіі.РісЬиге); 
епсі; / / ітдСоруЪКМоизеОр 


Нажатие на вторую приведёт к прямо противоположному результату: 


//КОПИРОВАТЬ ПРАВОЕ ПОЛЕ В ЛЕВОЕ 

ргосесіиге ТРогшІ. ішдСоруВ.ЬМоизеБо»п (Зепсіег : ТОЪ^есЬ; 

ВиЬЬоп: ТМоизеВиЬЬоп; ЗЪіЬЬ: ТЗЪіЬЬЗЬаЬе; X, У: ІпЬедег); 

Ьедіп 

ітдСоруКЪ.РісЬиге.Аззідп(Ітадеб.РісЬиге); 
тазРоіе:= тазРоіе2; 
сідРоІе. ІпѵаІісіаЬе; 
епсі; //ітдСоруКЪМоизеБоѵп 

ргосесіиге ТРогшІ. ітдСоруКЬМоизеир (Зепсіег: ТО^есЬ; ВиЬЬоп: ТМоизе¬ 
ВиЬЬоп; 

ЗЬіЬЬ: ТЗЬіЬЬЗЬаЬе; X, У: ІпЬедег); 

Ьедіп 

ІтдСоруКЪ.РісЬиге.Аззідп(Ітаде5.РісЬиге); 
епсі; //ІтдСоруКЪМоизеІІр 


Решив предложенные задачи, вы наверняка захотите составить и свои. 
Тогда незамысловато выставляйте нужные фишки на одном из полей или 
делайте ходы на левом поле, а затем полученную позицию сохраните на 
диске. Таким образом вы сможете пополнить библиотеку заданий для 
этой игры. 

Чтобы сохранить игровое поле, нажмите левую кнопку. 






ітдЗаѵеРозЬ: 

т 

Ье^Ь =44 

НіпЬ = 'Записать текущую позицию' 

Тад = 101 

ОпМоизеБсжп = ітдЗаѵеРозЬМоизеБоѵт 
ОпМоизеМоѵе = ЕогтМоизеМоѵе 
ОпМоизеИр = ІтдЗаѵеРозЪМоизеОр 

Чтобы сохранить поле-образец, такую же кнопку, но справа. 
ітдЗаѵеРозК: 

(Я 

Ье^Ь = 532 

НіпЬ = 'Записать текущую позицию' 

Тад = 103 

ОпМоизеБсжп = ішдЗаѵеРозЪМоизеРоип 
ОпМоизеМоѵе = ЕогтМоизеМоѵе 
ОпМоизеЦр = ІтдЗаѵеРозЪМоизеОр 

Так как и кнопки, и операции сохранения практически одинаковы для 
обоих полей, то давайте объединим их. Нажатие и отпускание кнопок 
осуществляется в процедурах 


//ЗАПИСАТЬ ПОЗИЦИЮ НА ЛЕВОМ ИЛИ ПРАВОМ ПОЛЕ 

ргосесіиге ТРогшІ . ітдЗаѵеРозЪМоизеБоѵт (Зепсіег : ТОЪ^есЪ; ВиЪЪоп: 
ТМоизеВиЪЪоп; 

ЗЬіЬЬ: ТЗЬіЬЪЗЪаЬе; X, У: ІпЬедег); 

Ьедіп 

ітдЗаѵеРозЪ.РісЪиге.Аззідп(ІтадеІЭ.РісЪиге) 
епсі; //ітдЗаѵеРозЪМоизеБоѵп 

ргосесіиге ТРогшІ. ІтдЗаѵеРозЪМоизеОр (Зепсіег: ТОЬдесЪ; ВиЪЪоп: 
ТМоизеВиЪЪоп; 

ЗЬіЪЪ: ТЗЬіЪЪЗЪаЪе; X, У: ІпЪедег); 

Ьедіп 

ІтдЗаѵеРозЪ.РісЬиге.Аззідп(Ітаде18.РісЪиге); 

іЪ (Зепсіег аз ТСотропепЪ) . Ъад= 101 ЪПеп Ьедіп // - левое поле 
ЗаѵеРоз (тазРоІе) епсі 

еізе Ьедіп // - правое поле 

ЗаѵеРоз (тазРо1е2) епсі; 
епсі; //ІтдЗаѵеРозЪМоизеОр 


А непосредственное сохранение заданного поля происходит в процедуре 
ЗаѵеРоз. Все задачи записываются в папку Рідигез и имеют расширение ЮЗ. 




Причём сохраняется всё поле целиком, что существенно упрощает 
процедуры записи и загрузки заданий. И, наконец, в заголовке формы 
выводится имя файла (задачи), заданное вами при его сохранении. 
Одновременно это имя присваивается глобальной переменной 


ЫашеЕід: зЬгіпд= 


Благодаря этому вы всегда легко определите название решаемой задачи. 
Если захотите, то можете расставить задачи по уровню сложности и после 
того, как пользователь вашей программы справится с одним заданием, 
предложить ему задание более сложное. 


//ЗАПИСАТЬ ПОЗИЦИЮ НА ЗАДАННОМ ПОЛЕ 

ргосесіиге ТРогтІ . ЗаѵеРоз (агг: ТРоІе) ; 

ѵаг 

Е: ЬехЬііІе; 
іп, з : зЬгіпд; 
і,з: іпЬедег; 

Ьедіп 

заѵесііаіоді. РеіаиІЬЕхЬ : = ' ЬхЬ ' ; 

заѵесііаіоді. ГіІЬег : = ' Задачи (*.1дз) | * . ЪСЗ ' ; 

заѵесііаіоді. ЕіІЬегІпсІех: =1; 

з : =ехЬгасЫі1ераЫі (аррІісаЬіоп . ехепате) + ' Гідигез\ ' ; 
заѵесііаіоді. ІпіЬіаЮіг : = з; 

заѵесііаіоді. ТіЫе : = ' Запишите позицию на диск'; 
іі ЫатеГідО'' Ыіеп заѵесііаіоді. іііепате : = ЫатеГід 
еізе заѵесііаіоді. іііепате : =' Ьетр . Ідз '; 
іі поЬ заѵесііаіоді. ЕхесиЬе Ыіеп ехіЬ; 

//имя конечного файла: 
іп:= заѵесііаіоді. іііепате; 

ЫатеГід:=іп; 
аззідпіііе(і,іп); 
геигіЬе(і); 

//записать позицию: 

іог ^:= 1 Ьо сідРоІе. КоиСоипЬ-1 сіо Ьедіп 

о . — » ! . 

О • г 

іог і:= 1 Ьо сідРоІе. СоІСоипЬ-1 сіо з:=з+ іпЬЬозЬг (агг [ і ] [^]); 
игіЬеІп (і,з); 
епсі; 

сіозеіііе (і); 

//вывести в заголовок формы имя файла: 
іогті.сарЬіоп:= ИАМЕ_РКОС + ' [' + ИатеЕід + 1 ] 

теззадеЬеер (0) 
епсі; //ЗаѵеРоз 


Вполне естественно, что задачу на диске нужно уметь загружать для 
решения в правое поле. За это будет отвечать кнопка 


ітдОреп: 







Ье^Ь = 1 

НіпЬ = 'Загрузить задачу с диска' 
Тад = 104 

ОпМоизеБсжп = ітдОрепМоизеБоѵт 
ОпМоизеМоѵе = ЕогтМоизеМоѵе 


//ЗАГРУЗИТЬ ЗАДАЧУ 

ргосесіиге ТРогтІ . ітдОрепМоизеБоѵт (Зепсіег : ТОЪ^есЬ; ВиЬЬоп: ТМоизе- 
ВиЬЬоп; 

ЗЬііЬ: ТЗЬііЬЗЬаЬе; X, У: ІпЬедег); 

Ьедіп 

ітдОреп . РісЬиге . Аззідп (ІтадеЮ . РісЬиге) ; 

Ореп ( ' '); 

епсі; / / ІтдОрепМоизеБоѵт 


При нажатии этой кнопки вызывается процедура Ореп с пустой строкой в 
качестве параметра. В этом случае появляется диалоговое окно открытия 
файла, и вы можете выбрать любой из имеющихся на диске. Чтобы 
загрузить определённую задачу (например, при переходе на следующий 
уровень сложности], следует передать в процедуру имя файла. Осталось 
добавить, что если вы не планируете набирать условия задач в текстовом 
редакторе (а это очень легко сделать], то можно ещё более упростить 
процедуру, убрав из неё проверки правильности данных на диске. 


//ЗАГРУЗИТЬ ЗАДАЧУ С ЗАДАННЫМ ИМЕНЕМ 

ргосесіиге ТРогтІ. Ореп (^п: зЬгіпд) ; 

ѵаг 

з: зЬгіпд; 

Е: ТехЬЕіІе; 
пЬіпез,Ьеп: ІпЬедег; 
і,з:ІпЬедег; 

зз: аггау[1..МАХ_Р0ЬЕ_НЕІ6НТ] оЬ зЬгіпд; 

Ьедіп 

іЬ Ьп='' ЬЬеп Ьедіп //- имя файла не задано 
Ьогті. орепсііаіоді. БеЬаиІЬЕхЬ : = ' Ідз ' ; 

Ьогті. орепсііаіоді. ЕіІЬег : = ' Ьодоз Ьііез (*.1дз) | * . ЬСЗ ' ; 
з: =ехЬгасЬЫ1ераЬЬ (аррІісаЬіоп.ехепате)+'ЕЮТКЕЗ\'; 

Ьогті. орепсііаіоді .ІпіЬіа1Біг:= з; 

Ьогті. орепсііаіоді. ТіЫе : = ' Загрузите новую задачу'; 

ІЬ поЬ Ьогті. орепсііаіоді. ЕхесиЬе ЬЬеп ехіЬ; 

з:= Ьогті. орепсііаіоді. Ьііепате 

епсі 

еізе з: =ехЬгасЬЫ1ераЬЬ (аррІісаЬіоп.ехепате)+'ЕЮТКЕЗ\'+ Ьп; 

//название задачи: 

ЫатеЕід:=з; 

{ $ і — } 






АззідпЕіІе(Е,ЫатеЕід); 

Кезеб(Г); 

{$і+} 

іб ІОКезиІбоО бЬеп Ьедіп //- ошибка при загрузке файла 

арріісабіоп .МеззадеВох ('Такой задачи нет !',ЫАМЕ_РКОС, МВ_ОК); 
ехіб 
епсі; 

пЪіпез:=0; 

Ъеп:=0; 

иііііе поб еоб (б) сіо Ьедіп 
іпс (пЪіпез); 

//считать строку из файла: 

Кеасі1п(Е, 3) ; 
зз[пЪіпез]:=з; 

Іб (ЪепдбЬ(з) <> Ъеп) апсі (ЪепоО) ТЬеп Ьедіп 

арріісабіоп. МеззадеВох ('Неверная длина строки!',ЫАМЕ_РК0С, 
МВ_0К); 

ехіб 

епсі 

еізе 

Ъеп:= ЪепдбЬ(з); 

епсі; 

//закрыть файл: 

СіозеЕііе(Е); 

//проверить данные: 

іб (Ъеп> МАХ_РОЪЕ_Ѵ\ГЮТН) ог (пЪіпез> МАХ_РОЪЕ_НЕІСНТ) ЬЬеп Ьедіп 
арріісабіоп.МеззадеВох(' Неверные данные !',ЫАМЕ_РКОС, МВ_ОК); 
ехіб 
епсі; 

//вывести в заголовок имя файла: 

богті.сарбіоп:= ЫАМЕ_РКОС + ' [' + ЫатеЕід + ']'; 

//очистить массивы полей: 

бог Л = 1 бо сідРоіе. КоиСоипб-1 сіо 

бог і:= 1 бо сідРоіе. СоІСоипб-1 сіо Ьедіп 
тазРоІе[і,з]:= 0; 
епсі; 

//и протокол: 

бгтРгобокоІ.ІізбЬохІ.ібетз.Сіеаг; 

//заполнить массив новыми данными: 
бог Л=1 бо пЪіпез сіо 
бог і:=1 бо Ъеп сіо 

шазРоіе 2 [і][Л:= збгбоіпб (зз [:], і] ) ; 

//запомнить начальную позицию: 

Метогуіп; 

//обновить поля: 
сідРоіе. Іпѵаіісіабе; 
сідРо1е2 . Іпѵаіісіабе; 

//обнулить ходы: 

Носі:= 0; Носі_тах:= Носі; 

ІЫНосі. Сарбіоп : = 'Ход - ' + іпббозбг (Носі) ; 




епсі; //Ореп 


Очень удобно с помощью этой процедуры при открытии программы 
загружать задание первого уровня сложности. Это можно сделать в уже 
рассмотренной нами процедуре РогтЗЬом/: 


//ПОКАЗАТЬ ФОРМУ 

ргосесіиге ТРогхпІ . ЕогшЗЬоѵ (Зепсіег: ТОЬіесЬ) ; 

Ьедіп 

ореп('001.Ідз'); 

ЬгтРгоЬокоІ.зЬоѵ; 
епсі; //ЕогтЗЬоѵ 


В результате сразу же после старта программы в правое поле будет 
загружена задача, и пользователь сможет приступить к её решению. 

Следует также позаботиться о сохранении найденного решения задачи. 
Оно находится в списке ЬЫВохІ на форме протокола. При щелчке на 
кнопке Записать, формируется название файла решения. Если задача уже 
имеет название (оно находится в заголовке формы, как вы знаете], то к 
нему добавляются буквы оіѵ, чтобы задача и её решение имели схожие 
имена. Если задача безымянная, то ответ будет записан в файл оСѵ_і;етр.і;хі 
(файл ответа (решения] имеет расширение іхі, так как это обычный 
текстовый файл]: 


//ЗАПИСАТЬ ОТВЕТ 

ргосесіиге Т^гтРгсЬокоІ . зЪЬЗаѵеОЬѵСІіск (Зепсіег: ТОЬ^ес•Ь) ; 

ѵаг 

з,зз,іп: зЬгіпд; 
і: іпЬедег; 

Т: ЬехЫіІе; 

Ьедіп 

заѵесііаіоді. ВеіаиІЬЕхЬ : = ' ЬхЬ ' ; 

заѵесііаіоді. ЕіІЬег : = ' Решения (*.ЬхЬ) | * . ТХТ ' ; 

заѵесііаіоді. ЕіІЬегІпсІех: =1; 

з : =ехЬгасЫі1ераЫі (аррІісаЬіоп . ехепате) + ' Еідигез\ ' ; 
заѵесііаіоді. ІпіЬіаІОіг : = з; 

заѵесііаіоді. ТіЫе : = ' Запишите решение на диск'; 

//сформировать имя файла: 
іі ИатеЕідО' ' Ыіеп Ьедіп 

з:=ехЬгасЬЕі1еИате(ЫатеЕід); 

з з : = ' ' ; 

і :=1; 

ѵЬіІе (з[і] <>'.') апсі (і<=1епдЬЬ (з) ) сіо Ьедіп 
зз := 33 + 3 [ і ]; 

іпс(і) 
епсі; 

зз:=зз+'оЬѵ.ЬхЬ'; 








заѵесііаіоді. іііепате : =зз 
епсі 
еізе 

заѵесііаіоді. іііепате : = ' окѵ_кетр . кхк ' ; 

іі пок заѵесііаіоді. Ехесике кііеп ехік; 
//имя конечного файла: 
іп:= заѵесііаіоді. іііепате; 
аззідпіііе(1, іп); 
геигіке(1); 

//записать протокол: 

іог і:=0 ко (ЪізкВохІ.Ікетз.Соипк - 1) сіо 
мгікеіп (1,ЪізкВохІ.Ікетз.Зкгіпдз[і]); 
Сіозекііе(1); 

МеззадеЬеер (0) 
епсі; //зЪкЗаѵеОкѵСІіск 


Очистить протокол вы сможете, нажав кнопку Стереть - . 


//ОЧИСТИТЬ ПРОТОКОЛ 

ргосесіиге Т^ипРгококоІ. ЗреесШи'Ь'ЬопІСІіск (Зепсіег: ТОЬіесЬ) ; 

Ьедіп 

ЪізкВохІ.Ікетз.Сіеаг; 
епсі; //ЗреесіВиккопІСІіск 


Веб спешит на помощь 

Теперь, когда разработка интерфейса программы почти завершена 
(автоматическое решение задачи будет рассмотрено в следующем 
разделе), мы можем написать «справочное пособие» по игре Іодоз. Как вы 
знаете, это можно сделать по-разному, но в этой игре мы освоим новый 
способ - оформим файл справки в виде веб-страницы. Іпіегпеі Ехріогег уже 
интегрирован в операционную систему Мнс/ои/5, так что проблем с 
просмотром таких страниц ни у кого не будет. А, кроме новизны, мы 
получим современную справку, которую легко разработать хотя бы в 
текстовом редакторе М5 ѴѴоМ (вы также легко найдёте множество 
программ, специально предназначенных для создания веб-страниц и веб¬ 
дизайна). Простую веб-страницу сделать ничуть не сложнее, а, пожалуй, 
даже и легче, чем справку в формате НЬР. 

Итак, кнопка ітдНеІр 


Ье^к =368 






НіпЬ = ' Помощь ' 

Тад = 112 

ОпМоигеБоѵгп = ітдНеІрМоизеОоѵт 
ОпМоизеМоѵе = ЕогтМоизеМоѵе 
ОпМоизеЦр = ітдНеІрМоизеОр 

и пункт меню тіНеІр должны запустить Іпіетеі Ехріогег и открыть в нём 
наш файл справки. Для этого мы воспользуемся функцией ЕкеІІЕхесиіе из 
ѴѴіпсІоѵѵз АРІ с соответствующими параметрами. Но прежде следует 
добавить модуль ЕкеІІАрі в раздел изез (он находится в начале модуля 
главной формы ЬодозЕтЬ). 

Вызов справки совершенно одинаков в обоих случаях, поэтому вы можете 
объединить две следующие процедуры в одну. 


//ПОКАЗАТЬ ФАЙЛ СПРАВКИ 

ргосесіиге ТРостпІ . шіНеІрСІіск (Зепсіег : ТО^есЬ); 
ѵаг з: зЬгіпд; 

Ьедіп 

з : = ехЬгасЬЬіІераЬЬ (аррІісаЬіоп . ехепаше) + ' ЬодозНеІр . ЬЬт' ; 
ЗЬеІІЕхесиЬе (ЬапсІІе, рСЬаг ( ' ореп ' ) ,рСЬаг ( ' іехріоге ' ) ,рСЬаг (з) , 

' ' , 5И_ЗН0ИМАХІМІ2ЕВ) ; 
епсі; //шіНеІрСІіск 

ргосесіиге ТРогтІ. ішдНеІрМоизеБоѵт (Зепсіег : ТОЬ^есЬ; ВиЬЬоп: ТМоизе- 
ВиЬЬоп; 

ЗЬіЬЬ: ТЗЬіЬЬЗЬаЬе; X, У: ІпЬедег) ; 

Ьедіп 

ішдНеІр.РісЬиге.Аззідп(Ішаде22.РісЬиге); 
епсі; //ітдНеІрМоизеБоѵп 

ргосесіиге ТРостпІ. ітдНеІрМоизеЫр (Зепсіег: ТО^есЬ; ВиЬЬоп: ТМоизе- 
ВиЬЬоп; 

ЗЬіЬЬ: ТЗЬіЬЬЗЬаЬе; X, У: ІпЬедег); 
ѵаг з: зЬгіпд; 

Ьедіп 

ІшдНеІр.РісЬиге.Аззідп(Ішаде21.РісЬиге); 

з:= ехЬгасЬЬіІераЬЬ(аррІісаЬіоп.ехепаше)+'ЬодозНеІр.ЬЬш'; 
ЗЬеІІЕхесиЬе (Ьапсііе, ' ореп ', ' іехріоге ' ,рСЬаг (з) , 

' ' , 5М_5ЖЖМАХІМІ2ЕВ) ; 
епсі; //ішдНеІрМоизеБоѵп 


Дело за малым - написать файл справки в редакторе М5 ѴѴопі и сохранить 
его как веб-страницу (вы также можете подобрать готовую веб-страницу и 
изменить надлежащим образом текст и рисунки на ней). 


Файл справки может быть таким: 




І11Р1ІІІ! ихзоз 


Отличная игра-головоломка, суть которой состоит в том, чтобы составить на игровом 
поле заданную фигуру из фишек. 

Правила игры 

Каждая фишка имеет на верхней стороне 1, 2, 3 или 4 очка: 



Фишки последовательно выставляются на свободные клетки игрового поля. У но¬ 
вой фишки на верхней стороне всегда находится одно очко. А вот все соседние с 
ней по горизонтали (слева и справа) и вертикали (сверху и снизу) фишки увеличи¬ 
вают своё значение на единицу, то есть фишка с одним очком превращается в фиш¬ 
ку с двумя очками, фишка с двумя очками - в фишку с тремя очками, фишка с тремя 
очками - в фишку с четырьмя очками. Так как фишек с пятью очками нет, то фишка с 
четырьмя очками вновь становится «одноочковой». 

Искомая конфигурация фишек приведена на маленьком поле справа. На игровом 
поле выделены более светлым оттенком клетки для выполнения ходов. 



Чтобы сделать ход, достаточно просто щёлкнуть мышкой в нужной клетке игрового 
поля. Например, для решения этой задачи необходимо сначала, в любой последо¬ 
вательности, щёлкнуть на внешних клетках (36, Р7, Н7, Ѳ8, а затем в центральной - 
07. Ход «партии» вы можете видеть в плавающем окне с заголовком «Протокол». 





























Управление игрой 

Управлять игрой можно с помощью кнопок в верхней части окна приложения или 
всплывающего мешо , которое вызывается нажатием правой кнопки мыши. 

Управляющие кнопки 



них. 


открыть список заданий на диске; вы можете выбрать и загрузить любое из 



- сохранить позицию на игровом поле (левая кнопка) или поле с заданием 
(правая кнопка). Позволяет разрабатывать и записывать на диск свои собственные 
задачи. 


- стереть все фишки с игрового поля (левая кнопка) или с поля-образца (пра¬ 
вая кнопка). 


А*ім 


отменить последним ход. 


** - вернуть отменённый ход. 


наити решение задачи. 


© 

© 


- показать справку помощи. 


копировать левое поле в правое. 


копировать правое поле в левое. 



- закрыть программу. 


Всплывающее меню 






ОеІрНі в примерах, играх и программах 


ф" Запомнить позицию к 

СІгІ+І 

0^ Восстановить позицию " 

'Ъ С 1x1+0 

Ход назад 

СігІ-Ш 

Ход вперёд 

сы-нг 

^ Правила 

СІГІ-Ф 


Последние три пункта меню просто дублируют соответствующие управляющие кноп¬ 
ки. 

Выбрав первый пункт, вы запомните позицию на игровом поле, а, выбрав второй, 
восстановите её. Эти пункты меню помогут вам вернуться к тому положению на по¬ 
ле, решение которого вы уже нашли. 


Как вы видите (Рис. 4.16], можно использовать различные шрифты и 
вставлять картинки, например, анимированные СІР-файлъг, один из них 
находится в начале текста справки (летающая тарелка; естественно, в 
текстовом редакторе виден только один «кадр» анимации, так что 
зрелище, конечно, не то]. 


0 ЮС05 - ѴѴіпботезІпІіегпеІ: Ехріогег I ° II в ІйаД 


Файл Правка Вид Избранное Сервис 

Справка 

Избранное ^ Рекомендуемые узлы 

т ^ Коллекция веб-фра гм.. т 

т т ^ т Страница т Безопасность ^ Сервис ^ 

0 10Ш5 



, Ь\ МР.МуВоокзѴ 2 РеІрГіі в примерах, иг^ ▼ 

** 

X | | Р Віпд 

Я 





Ь0С08 


Отличная игра-головоломка, суть которой состоит в том ; 
чтобы составить на игровом поле заданную фигуру из фишек. 


Правила игры 

Каждая фишка имеет на верхней стороне 1,2,3 или 4 очка: 

В ■ В іЯ 

■Фишки последовательно выставляются на свободные клетки игрового поля. У 
новой фишки на верхней стороне всегда находится одно очко. А вот все соседние 
с ней по горизонтали (слева и справа) и вертикали (сверху и снизу) фишки 
увеличивают своё значение на единицу, то есть фишка с одним очком 
превращается в фишку с двумя очками, фишка с двумя очками - в фишку с тремя 
о чками. Фишка с тремя очка ми - в Фишку с четырь мя очка ми. Так как Фи шек с 

Готово [% Компьютер | Защищенный режим: выкл. 


Рис. 4.16. Справка открыта в браузере Іпіегпеі Ехріогег 




































Для разработки статичных картинок годится любой графический 
редактор, а для создания анимации существует много 
специализированных СІР-аниматоров, которые позволяют легко 
добавлять к вашим картинкам разнообразные визуальные спецэффекты. 

После того как вы набрали текст помощи и вставили рисунки, добавьте 
переходы в нужные места файла. Для этого выделите текст, при щелчке на 
котором будет осуществляться переход, и вызовите контекстное меню, 
нажав правую кнопку мыши. В нём выберите пункт Гиперссылка, после 
чего откроется диалоговое окно Вставка гиперссылки. Так как место 
перехода находится в том же файле, то выберите слева пункт Связать с 
местом в документе и в списке укажите заголовок в файле помощи (у нас 
они выделены сиреневым цветом и подчёркиванием - не забудьте при 
наборе заголовка в списке стилей выбрать Заголовок 1 (2, 3), начало 
документа или закладку! Более подробно о создании гиперссылок вы 
можете прочитать в Справке по Місгозо/і: 0//ісе МѴогд. 

И последнее - сохраните свою работу как веб-страницу в папке с игрой под 
именем ЬодозНеІр. Для проверки загрузите справку в Іпіетеі Ехріогег, а 
если обнаружите недостатки, то прямо из него перешлите для доработки в 
ѴѴогсІ. О том, как работать в редакторе, вы уже знаете. 

Естественно, ту же самую справку вы увидите, если попросите помощи 
непосредственно из программы Іодоз. Я надеюсь, результаты вас 
полностью удовлетворят. Впрочем, вы можете сколько угодно улучшать 
свою «веб-страницу», украшая её новыми элементами. Но и в «простом» 
варианте помощь выглядит отлично! 

Некоторые особенности программы не отражены в предлагаемом файле 
справки. Если вы считаете нужным упомянуть о них, то сделайте это! 


Шиворот-навыворот и задом наперёд 

Конец - делу венец. 
Русская пословица 

Если вы пробовали решать предложенные в начале главы задачи, то, 
конечно, ощутили на себе, как непросто решить даже эти элементарные 
«примеры». Что уж говорить о «навороченных»! 


ОеІрНі в примерах, играх и программах 


А всё потому, что большинство фишек в ходе игры претерпевает 
несколько превращений, за которыми трудно уследить. Те, кто играл в 
реверси, прекрасно знакомы с подобной проблемой. 

Безусловно, по конечной позиции сложно вычислить, с какой фишки 
началась игра и какие фишки пристраивались к ней потом. Зато с 
последней фишкой всё гораздо проще - из правил игры неотвратимо 
следует, что последняя фишка обязательно имеет одно очко на верхней 
грани, ведь после неё фишки больше не выставлялись, а, значит, она не 
могла изменить своего значения. Таким образом, вся «хитрость» задач 
игры Іодоз заключается в том, что их нужно решать с конца. 

С ретроспективным анализом мы уже встречались при разработке игры 
ХогСате, так что эта новость не должна застигнуть вас врасплох. Поэтому 
давайте решим с помощью этой методы задачи-примеры. 

Задача 1. 



Рис. 4.17. Если не знаешь, с чего начать, начни с конца! 

В конечной позиции только одна фишка - центральная - имеет одно очко 
на верхней грани (Рис. 4.17). Из вышесказанного совершенно очевидно, 
что она и была выставлена на поле последней. 

С ней граничат 4 фишки, которые в результате последнего хода увеличили 
своё значение на единицу. То есть, если убрать центральную фишку, то все 
остальные фишки должны уменьшить своё значение на единицу. Стало 
быть, перед последним ходом ситуация на поле выглядела так (Рис. 4.18). 



Рис. 4.18. Ход назад! 






















У этих фишек нет соседей, поэтому в ходе игры они не могли изменить 
своего значения, следовательно, их можно выставлять на поле в любом 
порядке, например, так (Рис. 4.19). 



Рис. 4.19. Пятимся назад! 


Таким образом, пользуясь ретроспективным анализом, мы пришли от 
конечной позиции к начальной. А в игре нужно, наоборот, перевести 
начальную позицию в конечную, поэтому следует обратить ходы - 
выставить сначала все периферийные фишки, а уже затем центральную. 

Решим более сложную задачу 2 (Рис. 4.20). 



Рис. 4.20. Вторая задача 

В конечной позиции все фишки имеют одно очко на верхней грани - так 
какая же из них была выставлена последней? 

Легко понять, что фишка с одним очком либо вообще не изменяла своего 
значения в игре, либо изменяла его четырежды, чтобы совершить полное 
превращение: 1->2->3->4->1. Во втором случае у неё должно быть 
ровно 4 соседа. Отсюда следует важный вывод: все фишки с одним очком, 
имеющие не более трёх соседних, никогда не изменяли своего значения, то 
есть после них на поле не выставлялись фишки, граничащие с ними по 
длине стороны. 

Поскольку у всех периферийных фишек только один сосед, то их можно 
смело удалять с поля в любой последовательности (Рис. 4.21). 
































Рис. 4.21. Удаляем беспощадно 


Дальнейшее решение не требует иллюстраций. Без сомнения, мы придём к 
центральной фишке с одним очком, которой и должен быть сделан первый 
ход. 

В задаче 3 (Рис. 4.22) легко отыскать фишки с одним очком, имеющие 
менее четырёх соседей, - это все периферийные фишки. 



Рис. 4.22. Однако, ромбик! 

Убирая их в любой последовательности (внимательно следите за 
превращениями остальных фишек!), мы неизбежно получим такую фигуру 
(Рис. 4.23). 



Рис. 4.23. Знакомая позиция! 















































Нетрудно узнать в ней первую задачу, которую мы уже благополучно 
решили. 

Нечасто, но бывают такие ситуации на поле, когда все фишки с одним 
очком имеют по четыре соседа, поэтому найденное нами правило о трёх 
соседях здесь не действует. Например, в задаче 25 после удаления четырёх 
фишек на границе фигуры возникнет такая «неразрешимая» позиция (Рис. 
4.24). 



Рис. 4.24. Куда пойти? 

Политически неверно было бы удалить здесь те фишки с одним очком, у 
которых нет соседних фишек с двумя очками. В результате таких ходов вы 
загоните себя в тупик, так как на поле вообще не останется ни одной 
фишки с одним очком и ходить будет нечем. Отсюда вытекает второе 
важное правило: если на поле остались только такие фишки с одним 
очком, которые граничат с четырьмя другими, то удалять следует те из 
них, у которых есть соседняя фишка с двумя очками. 

Этих двух правил вполне достаточно, чтобы решить задачу любой 
сложности. Одна беда - при решении задачи мы будем двигаться в 
обратную сторону. Практически это выглядит так. Загружаем (или 
набираем вручную) в правое поле задачу, копируем её в левое поле 

кнопкой и последовательно удаляем фишки, пользуясь нашими 

правилами. Если вы нигде не собьётесь с верного пути, то полностью 
очистите игровое поле от фишек. Теперь нужно сделать то же самое, но в 
обратном порядке. Ходы запомнили? Шутка - у нас все ходы записаны в 
протоколе, поэтому просто ходите в нужные клетки, начиная с конца 
списка ходов. Небось, надоело высчитывать клетки по их координатам? 
Тогда щёлкните в списке на нужной строке - и фишка появится в нужном 
месте в нужное время. Щёлкнули, а она не появилась? И это верно: прежде 

















чем щелкать, нужно подумать о последствиях, все-таки мышка - это вам не 
волшебная палочка! 

В модуле РгоіокоЮпіі: формы протокола нужно добавить процедуру, 
обрабатывающую щелчок на одной из строк списка. Чтобы не 
прокручивать длинный список ходов вручную,мы также поручим это 
нашей процедуре. Далее в ней «расшифровывается» строка с записью хода, 
после чего выполняется ход в нужную клетку игрового поля. 


ргосесіиге Т^гтРгсЬокоІ . Ьіз'ЬВохІСІіск (Зепсіег : ТОЪ^есб); 
ѵаг 

з,Ь: збгіпд; 
п: іпбедег; 
х, у: іпбедег; 

Ьедіп 

//прокрутить список так, чтобы сверху была выделенная строка: 
ЪізбВохІ. Торіпсіех : = ЪізбВохІ. Ібешіпсіех; 

//выделенная строка из списка: 

з : = ЪізбВохІ. Ібетз . Збгіпдз [ЪізбВохІ. Ібетіпсіех] ; 

//найти точку: 
п:= роз ( 1 . 1 , з) ; 

іі: п=0 бЬеп ехіб; //- это не запись хода! 

//выделить номер хода: 

Ь: = сору(з,1,п-1); 

Носі:= збгбоіпі: (Ь) ; 

//вывести его на экран: 

Ъодозбпіі:. Рогті. ІЫНосі. Сарбіоп : = 'Ход - ' + іпббоз'Ьг (Ноб) ; 
//выделить координаты клетки: 
х:= роз (з[п+2],Іеббег); 
з:= сору(з,п+4,2); 
у: = збгбоіпі: (з) ; 

//выполнить ход: 

тазРо1е:= Ъодозііпіі:. Рогті. БоМоѵе (тазРоІе, х, у); 

Гогті. бдРоІе . іпѵаІіба'Ье; 

//проверить, не решена ли задача: 

іР Ъодозііпіі:. Рогті. ІзКеабу РЬеп Ъодозііпіі:. Рогті. Кеабу; 
епб; //ЪізбВохІСІіск 


При этом решение задачи всё равно придётся начинать с последних х одов и 
подниматься в списке наверх. Было бы гораздо удобнее выполнять ходы 
«нормально», то есть сверху вниз. Для осуществления своих народных 
чаяний установим на форме протокола внизу большую кнопку зЪіІпѵ. 

= 4 Тор =192 

Ш.<Ші = 185 НеідЫ: =22 
Ніпѣ = 'Обратить ходы' 

Сар-Ьіоп = 'Обратить ходы' 

Ропѣ.З'ЬуІе = [РзВоІсі] 




ОпСІіск = зЬЬІпѵСІіск 


и наделим её способностью всё ставить с головы на ноги: 


//ОБРАТИТЬ СПИСОК ХОДОВ 

ргосесіиге Т^ипРгоЬокоІ. зЬ'ЬІпѵСІіск (Зепсіег: ТОЬіесЬ) ; 

ѵаг 

з: аггау [0..169] оЬ зЬгіпд; 
зЬг: зЬгіпд; 
і,з: іпЬедег; 
п,т: іпЬедег; 

Ьедіп 

п:= ЪізЬВохІ.ІЬетз.СоипЬ-1; 

::=-і; 

Тог і:= 0 То п сіо 

ІЬ ЪізЬВохІ.ІЬетз.ЗЬгіпдз[і ] <> 11 ЬЬеп Ьедіп 
іпс( з ); 

з[д]:= ЪізЬВохІ.ІЬетз.ЗЬгіпдз[і]; 

епсі; 

ЪізЬВохІ.Сіеаг; 

Тог і:= ^ сіоѵтЬо 0 сіо Ьедіп 
т:= роз ( 1 . 1 ,з [і]) ; 

зЬг:= сору(з[і], т+2, ІепдЫі (з [ і ] )-т) ; 
зЬг: = ТогтаЬ (’%3сі', [д—і+1]) + ' + зЬг; 

ЪізЬВохІ.ІЬетз. АсМ (зЬг); 
епсі; 

ЪізЬВохІ. ІЬетз . Асісі ( ' ' ) ; 
епсі; //зЬЬІпѵСІіск 


После этих «ухищрений» вы сначала решаете задачу «ретроспективно», а 
затем обращаете последовательность ходов, щёлкаете на строках 
протокола и наблюдаете любопытные картины из жизни фишек на 
игровом поле. 

Если вы внимательный читатель, то должны были заметить, что на самом 
деле вы не можете делать ходы на игровом поле в обратном направлении 
(убирать фишки), так как программа умеет только выставлять фишки на 
поле. Правда, можно вдавить поглубже клавишу 5Иіі/ и просто изменить 
нужные фишки так, чтобы создавалась иллюзия обратного хода, но всё 
иллюзорное так ненадёжно! Поэтому в процедуре (ІдРоІеМоизеОоѵѵп (об 
этом говорилось выше) предусмотрена возможность делать ходы назад. 
Для этого надо щёлкать на нужной фишке, удерживая клавишу Аіі. Тогда 
вместо функции ЭоМоѵе вызывается функция ВаскМоѵе, которая 
корректно снимает фишку с поля. 




Разобраться в действии этой функции несложно, особенно если сравнить 
её с ЭоМоѵе : 


//ХОД НАЗАД 

^ипсЬіоп ТРогшІ . ВаскМоѵе (агг: ТРоІе; х, у: ІпДедег): ТРоІе; 
ѵаг і: ІпДедег; 

Ьедіп 

гези1Д:= агг; 

//изменить соседние фишки: 

Рог і:= Мах(у-1,1) До Міп (у+1, сідРоІе .КоиСоипД-1) сіо //- верти¬ 
кальный 
Ьедіп 

ІР (іо у) апсі (агг[х,і] о 0) ДЬеп Ьедіп 
сіес (агг [х, і] ) ; 

ІР агг[х,і]=0 РЬеп агг[х,і]:= 4; епсі; 

епсі; 

Рог і:= Мах(х-1,1) До Міп (х+1, сідРоіе . СоІСоипД-1) сіо //- горизон¬ 
тальный 
Ьедіп 

ІР (іо х) апсі (агг[і,у] о 0) ДЬеп Ьедіп 
сіес (агг [і, у] ) ; 

ІР агг[і,у]=0 ДЬеп агг[і,у]:= 4; епсі; 

епсі; 

//уменьшить на единицу значение заданной фишки: 
сіес (агг [х, у] ) ; 
гези1Д:= агг; 
епсі; //ВаскМоѵе 


Учимся лениться 

Не появилось ли у вас «естественного» желания вообще всю работу по 

решению задачи свести к одному щелчку на желанной кнопке ^ ? Вопрос, 
конечно, риторический - но прежде чем предаться лени и неге, нужно 
взвалить всю нетворческую работу на плечи компьютера. 

Нажать на кнопку мы, правда, всегда сумеем: 


//НАЙТИ РЕШЕНИЕ ЗАДАЧИ 

ргосесіиге ТРогшІ. ітдЗоІиЫопМоизеБоѵт (Зепсіег : ТОЬзесД; 

ВиДДоп: ТМоизеВиДДоп; ЗЬіРД: ТЗЬіРДЗДаДе; X, У: ІпДедег); 
Ьедіп 

ішдЗоіиДіоп.РісДиге.Аззідп(Ітаде14.РісДиге); 
епсі; / / ітдЗоІиДіопМоизеОоип 

ргосесіиге ТЕогтІ. ітдЗоІиДіопМоизеОр (Зепсіег : ТО^есД; ВиДДоп: 
ТМоизеВиДДоп; 

ЗЬіРД: ТЗЬіРДЗДаДе; X, У: ІпДедег); 

Ьедіп 

ІшдЗоіиДіоп.РісДиге.Аззідп(ІтадеІЗ.РісДиге); 






іЕ Сате 8 ЕаЕе= дзЗоІиЕіоп ЕНеп ехіЕ; 

//перевести программу в режим поиска: 

СатеЗЕаСе:= дзЗоІиЕіоп; 

//искать решение: 
зоІиЕіоп (тазРо1е2) ; 

//перевести программу в режим ожидания ввода команд: 
Сате5ЕаЕе:= дзМаіЕ; 
епсі; //ітдЗоІиЕіопМоизеир 


А вот с процедурой поиска решения, увы, так просто не разделаться. Хотя 
самое главное мы уже знаем - это наши правила решения задач, остальное, 
как говорится, дело техники. 

Так, мы легко можем определить необходимое число ходов, ведь оно в 
точности равно числу фишек в конечной позиции. Затем отыскиваем в 
текущей позиции, пока можно, фишки с одним очком на верхней грани, 
имеющие не более трёх соседей (Правило 1, функция Зозесіі). Когда такие 
фишки закончатся, переходим к поиску фишек с одним очком, имеющим 
четырёх соседей, в том числе с двумя очками на верхней грани. И так 
далее, и так далее, и так далее... В конце концов, либо задача будет решена, 
либо мы определим, что она неразрешима. 

Естественно, задача и в этом случае решается в обратном порядке, но в 
процедуре ЗаѵеРоз ходы записываются как следует, так что вы можете 
пощёлкать на них в списке и убедиться в правильности решения задачи, а 
также и сохранить его на диске. 


//АВТОМАТИЧЕСКОЕ РЕШЕНИЕ ЗАДАЧИ 

ргосесіиге ТРогшІ . ЗоІиЕіоп (агг: ТРоІе) ; 

ѵаг 

Носі: іпЕедег; 
и,Ь: іпЕедег; 
х, у: ЪуЕе; 

ЕІдНосі: Вооіеап; 
аггі, агг2: ТРоІе; 

//Подсчитать число ходов (фишек) 

ЕипсЕіоп ЗЕерз : іпЕедег; 

ѵаг 

і, 3 : іпЕедег; 

Ьедіп 

Кези1Е:= 0; 

Тог з : = 1 Со Ь сіо 
Ког і:= 1 До и сіо 

ІЕ агг 2 [і,з]<> 0 ЕЬеп іпс(КезиІЕ) 

епсі; 

//Подсчитать число соседей у единицы 

Еипс^іоп Зозесіі: іп-Ьедег; 






ѵаг 

і, 3 : іпЬедег; 
і 1: іпЬедег; 


Ьедіп 

//искать по всему полю: 

Ьог 3 : = 1 Ьо Ь сіо 
Ьог і: = 1 Ьо и сіо 

ІЬ агг2[і,з]=1 ісЬ.еп Ьедіп //- нашли единицу 
КезиІЬ:= 0; 

//сколько соседей? 

Ьог і1:= Мах(з~1,1) Ьо Міп(з+1,Ь) сіо //- по вертикали 
ІЬ (ііо 3 ) апсі (агг2[і,і1] о 0) ЬЬеп Ьедіп //- есть 
іпс(КезиІЬ); епсі; 

Ьог і1:= Мах(і-1,1) Ьо Міп(і+1,и) сіо //- по горизонтали 
іі (ііо і) апсі (агг2[і1,з] о 0) ЬЬеп Ьедіп //- есть 
іпс (КезиІЬ); епсі; 
іі Кези1Ь< 4 ЬЬеп Ьедіп 
х : = і; у: = з ; 

//дальше не искать: 
ехіЬ; 
епсі; 
епсі; 

//не найдены: 

КезиІЬ:= -1; 
епсі; 


//Найти единицу с 4-мя соседями (с двойкой) 

^ипсѣіоп 5озесіі2 : іпЬедег ; 

ѵаг 

і, з: іпЬедег; 
іі: іпЬедег; 

Ыд: Вооіеап; 

Ьедіп 

//искать по всему полю: 

Ьог з : = 1 Ьо Ь сіо 
Ьог і:= 1 Ьо и сіо 

ІЬ агг2[і,з]=1 ЬЬеп Ьедіп //- нашли единицу 
КезиІЬ:= 0; 

Ыд:= Раізе; 

//сколько соседей? 

Ьог і1:= Мах(з~1,1) Ьо Міп(з+1,Ь) сіо //- по вертикали 
ІЬ (ііо з) апсі (агг2[і,і1] О 0) ЬЬеп Ьедіп //- есть 
іпс(КезиІЬ); 

ІЬ агг2[і,і1] =2 ЬЬеп Ыд:= Тгие; епсі; 

Ьог І1:= Мах(і-1,1) Ьо Міп(і + 1,и) сіо //- по горизонтали 
ІЬ (ііо і) апсі (агг2[і1,з] О 0) ЬЬеп Ьедіп //- есть 
іпс(КезиІЬ); 

ІЬ агг2[і!,з]= 2 ЬЬеп Ыд:= Тгие; епсі; 


ІЬ Ыд апсі (Кези1Ь=4) ЬЬеп Ьедіп //- нашли 
х : = і; у: = з ; 

//дальше не искать: 
ехіЬ; епсі; 




епсі; 

//не найдены: 
Кези1Р:= -1; 
епсі; 


» 


//записать ходы в протокол: 

ргосесіиге ЗаѵеРоз; 

ѵаг 

п: іпРедег; 
х, у: іпРедег; 
з: зРгіпд; 

Ьедіп 

РгтРгоРокоІ.ІізРЬохІ.іРетз.Сіеаг; 

Рог п:= Носі сіоѵтРо 1 сіо Ьедіп 

о • — » » • 

О • г 

х:= Моѵе[п].х; у:= Моѵе[п].у; 

РгтРгоРокоІ. ЬізРВохІ. іЬетз . асісі (РогтаР ( ' %3сі' , [Носі-п+1 ] ) 

+ 

ІеРРег[х]+ ' ' +іпРРозРг(у)); 

епсі; 

РгтРгоРокоІ. ІізРЬохІ. іРетз . асісі ( ' ' ) ; 
епсі; 


+ ' . 


Ьедіп 

//очистить протокол: 

РгтРгоРокоІ.ІізРЬохІ.Сіеаг; 

//скопировать массивы полей: 
агг2:= тазРо1е2; 
агг1:= тазРоіе; 

//размеры полей: 

ѵі := сідРоІе . СоІСоипР-1; Ь:= сідРоІе . КоѵСоипР-1; 

//подсчитать число ходов: 
зРер:= зРерз; 

ІР зРер= 0 РЬеп Ьедіп 

аррІісаРіоп. МеззадеВох ('Вы не загрузили задачу!',ЫАМЕ_РКОС, 
МВ_ОК); 
ехір 
епсі; 


Носі: = 0; 


гереаР 

//ходим в клетки с 1, имеющей не более 3 соседей: 

ѵЬіІе Зозесііо -1 сіо 

Ьедіп 

//делаем ход в эту клетку: 
іпс (Носі) ; 

Моѵе [Носі] .х:= х; 

Моѵе[Носі] .у:= у; 

агг2:= ВаскМоѵе(агг2, х, у); 

тазРоіе := агг2; сідРоіе . ІпѵаіісіаРе; 






//делаем задержку, чтобы увидеть процесс решения задачи: 
зіеер (100); 

арріісакіоп .РгосеззМеззадез; 
іі Ьосі = зкер кЬеп Ьедіп 
заѵероз ; 

ігтРгококоІ . Нісіе ; 

арріісакіоп. МеззадеВох ('Задача решена !',ЫАМЕ_РКОС, 

МВ_ОК); 

ігтРгококоІ. Зкюи; 
ехік 

епсі 

епсі; 

ЫдНосі: = Еаізе; 
ік Зозесіі2<> -1 кЬеп Ьедіп 
//делаем ход в эту клетку: 

ЫдНосі: = Тгие; 
іпс (Носі) ; 

Моѵе[Носі] .х:= х; 

Моѵе [Носі] . у: = у; 
агг2:= ВаскМоѵе (агг2, х, у); 
тазРо1е:= агг2; сідРоІе . Іпѵаіісіаке; 
зіеер (100); 

арріісакіоп.РгосеззМеззадез; 
іі Ьосі = зкер кЬеп Ьедіп 
заѵероз; 

кгтРгококоІ. Нісіе; 

арріісакіоп.МеззадеВох ('Задача решена !',ЫАМЕ_РКОС, 

МВ_ОК); 

кгтРгококоІ.ЗЬои; 
ехіЬ 
епсі; 
епсі; 

ипЬіі кідНосИ Еаізе; 

//не удалось решить задачу: 

арріісакіоп.МеззадеВох ('Задача решений не имеет !',ЫАМЕ_РКОС, 
МВ_ОК); 
ехік; 

епсі; //ЗоіиЬіоп 


Хотел бы предостеречь вас от бездумного использования автоматического 
решения задач, ведь в таком случае программа теряет всякий смысл! А вот 

при разработке и проверке собственных заданий кнопка Г 

вам 

пригодится для проверки своих творений. Не говоря уже о том, что 
найденные нами алгоритмы могут пригодиться вам при создании других 
программ! 


Исходный код программы находится в папке Ьо§ 05 . 




«С любимыми не расставайтесь...» 


Если вы ещё не наигрались в І.одо5, то попробуйте приумножить 
достоинства этой игры новыми возможностями. 

1. Если вы произвольно выставите фишки на поле, то, скорее всего, 
получите неразрешимую задачу. Тогда можно постараться решить 
её с наименьшим числом штрафных ходов. Штрафным назовём 
такой ход, при котором разрешается перевернуть любую фишку на 
следующую грань (или на предыдущую, или на единицу), не 
затрагивая соседних фишек. 

С такими послаблениями всякая задача будет разрешима 
(«правильные» задачи решаются без штрафных очков, остальные - 
с тем или иным количеством штрафных очков), но вот насколько 
легко будет найти лучшее решение? 

2. Ни одна фишка на поле не выставляется, а конечная позиция 
является начальной. Цель игры: перевернуть все фишки единицей 
вверх. Ход выполняется так же, как в игре ЗНогіСате. Различие 
только в том, что теперь у фишек не две стороны, а четыре. 
Усложнит ли это решение задачи? 

3. Придумайте другие варианты игры /.одо5. Самый простой путь - 
искать их на стыке с другими играми («гибридизация» игр). 


Факультатив 5. Цветные линии, или 
Критическая масса мыслей 


Не каждое лыко в строку. 
Русская пословица 

Прежде чем мы приступим к разработке собственной программы, давайте 
познакомимся с мировым опытом в области собирания шариков. 


Мир Цветных линий 

Цветные линии (или Соіог Ііпез, на аглицкий манер) - одна из самых 
известных компьютерных игрушек (Рис. 5.1), была создана в недрах 
фирмы Геймос усилиями Олега Дёмина ещё в те времена, когда 
компьютерами управляла операционная система М5 005. С тех пор она 
породила, пожалуй, не меньше вариантов, чем знаменитый тетрис. 



Соіог І_іпе5 


Авторские права ® 1ЭЭ2-1ЭЭ5 АО Геймос. 

Программа Константина Мироновича. Графика Игоря Ивкина. Музыка Бетховена. 
Оригинальная 005 версия Олега Демина. 


Рис. 5.1. Мировая вещь! 

И это не удивительно: правила игры очень просты и легко поддаются 
программированию, а сама игра настолько интересна, что от неё сначала 
трудно оторваться, а потом хочется вновь к ней возвращаться. Наиграться 
в неё невозможно! 
































В классическом варианте, представленном здесь программами Соіог Ыпез 
(версия для 008, автор Олег Дёмин, 1992 год) и ЬіпезУѴіп той же фирмы 
Геймос, но уже для Шпсіоѵѵз (авторы Геннадий Денисов, Игорь Ивкин, 
Константин Миронович, 1995 год) игра ведётся на квадратном поле 
размерами 9 на 9 клеток (Рис. 5.2). 




Рис. 5.2. «Исходники»! 

При старте игры на поле появляются 5 разноцветных шариков (всего 
имеется 7 разных окрасок). Игрок на каждом ходу перемещает любой 
шарик в другую клетку, если он сможет добраться до неё ходом 
шахматной ладьи. Когда удастся выстроить непрерывную цепь шариков 
одного цвета длиной не менее пяти штук по горизонтали, вертикали или 










































































































































диагонали, она (само]уничтожается, освобождая поле, а игрок получает по 
очку за каждый шарик, плюс возможность сделать ещё один ход. Если на 
поле одновременно возникает несколько цепочек, то все они будут 
«стёрты с лица земли». 

Если в результате хода выстроить такой цепочки не удалось, то на поле в 
произвольных местах возникают 3 новых шарика. Вы можете заранее 
узнать цвет следующей порции шариков, если включите режим подсказки, 
но тогда призовых очков получите меньше. 

Игра заканчивается, когда на поле не останется места для вывода 
очередных шариков. 

Цель игры, набрать как можно больше очков и попасть в список 
рекордсменов. Легко понять, что никакого логического выигрыша в игре 
нет, так как отсутствуют выигрышные ситуации (если не учитывать почти 
невероятный случай, когда игроку удастся уничтожить все шарики на 
поле!). Игрок в любом случае проигрывает, разница только в том, что кто- 
то сможет продержаться дольше и набрать больше очков. Подобную 
ситуацию мы наблюдаем и в тетрисе, где также победить нельзя. Но вы 
можете разбить игру (свой вариант!) на несколько уровней с переходом на 
следующий после набора определённого количества очков. 

Если не учитывать различий в качестве графики, то обе версии игры 
совершенно одинаковы. Существуют только два технических отличия - 
шарики по-разному перемещаются по клеткам, и в ДОС-версии шарик 
оставляет за собой следы, что довольно забавно. 

Недалеко ушла от оригинала игра Цветные линии (Антон Мелёхин, версия 
1.1,1997 год) (Рис. 5.3). 




















Рис. 5.3. Цветные линии Антона Мелёхина 

Написана она ещё на первой версии нашего родного ОеІрЪі. Игра ведётся 
по классическим правилам, только в начале игры появляются 3 шарика, 
что явно недостаточно, так как практически невозможно сделать ни 
одного осмысленного хода. За каждую уничтоженную цепочку 
начисляется удвоенное количество очков. 

Предусмотрена возможность игры вдвоём, но каждый игрок ведёт 
совершенно самостоятельную партию (один управляет мышкой, второй - 
клавиатурой], так что никакого резона в таком усовершенствовании игры 
нет. Чтобы внести элемент соревновательности, следовало бы играть 
параллельно, но тогда один игрок может просто повторять ходы другого. 
Правильнее было бы соревноваться с компьютером, то есть второго 
игрока должна заменить программа.Для этого потребуется наделить её 
каким бы то ни было интеллектом, чтобы она выбирала хорошие ходы 
(или лучшие!] из нескольких возможных. 

По ходу игры вы можете слушать музыку. Сейчас это стало модным 
атрибутом игровых программ, хотя совершенно необязательно 
интеллектуальные игры портить музыкальным сопровождением. Тем 
более что каждый меломан может запустить, например, в Универсальном 
проигрывателе , любимую музыку в фоновом режиме. 

К достоинствам программы можно отнести динамическое выделение 
предполагаемого пути шарика стрелками. Очень удобно и наглядно! 





















































































Две следующие программы - Ыпез'98 (Рис. 5.4] 


Файл Игра Помощь 
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Рис. 5.4. ипез'98 


и Ыпез МіПепіит (Рис. 5.5] - принадлежат «перу» одного автора - Дмитрия 
Кивилёва. Это всё та же классическая игра, но в новом обличии, точнее - 
во множестве обличий, так как вы можете изменить её внешний вид, 
выбирая один из нескольких возможных скинов (бШпб) - модная нынче 
технология «пластической операции» интерфейса. 
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Рис. 5.5. Ыпез МіПепіит 




































































































)еІрНі в примерах, играх и программах 


Кроме стандартной игры, в которой требуется уничтожать линии (Ыпез), 
имеется ещё две её разновидности - Зциагез и Віоскз. В первой нужно 
собирать прямоугольники (не менее четырёх шариков), во второй - 
связные области (не менее семи шариков). 

Другие нововведения: прогрессивное начисление очков в зависимости от 
длины цепочки, выбор и настройка звуковых эффектов для основных 
событий, сохранение и загрузка игры, откат на один ход, изменение 
количества вновь появляющихся шариков (3-5), следующие шарики могут 
отображаться не только на табло, но и на поле (шарики меньшего 
размера). 

В целом игра оставляет весьма приятное впечатление. 

Несомненно, порадует вас обилием скинов и игра Сооі Ыпез (автор Настя 
Рассохина, 2000 год) (Рис. 5.6), тем более что их легко изготовить 
самостоятельно. 




Рис. 5.6. Сооі ііпез 

В остальном эта игра лишь незначительно отличается от оригинала: 

- можно уничтожать не только линии, но и квадраты из четырёх 
«шариков»; 

- отсчитывается время игры; 

- количество вновь появляющихся фигурок непостоянно (5-9) в ходе 
одной игры; 

- имеется 3 уровня сложности, которые и определяют набор фигурок. 











































тоже 


В игре РісШге Ыпез 1.0 (автор Вячеслав Витер, 2000 год) 
поддерживаются скины (Рис. 5.7). 



Рис. 5.7. Рісіиге ііпез 1.0 

Игра проходит на поле стандартных размеров, но имеется возможность 
выбирать количество вновь появляющихся шариков (3-5) и их цвета (5-9). 
Уничтожаются не только прямые линии, но и прямоугольники, прямые и 
косые кресты и блоки (связные области). Выводится время игры, процент 
занятой шариками территории, путь шарика. Текущую игру можно 
сохранить на диске, а затем вновь загрузить. 

Из новинок можно отметить появляющуюся по мере уничтожения 
шариков картинку, что, впрочем, ничуть не улучшает игру, так как 
большая часть поля всё равно занята шариками. Было бы лучше вынести 
проявляющуюся картинку на отдельную панель или форму. 

Всё бы ничего, но назойливая реклама над игровым полем не способствует 
интересу к этой игре, тем более что ничего принципиально нового в ней 
нет. 

В игре Цветные линии 1.01 (СЬеепзоЙ;, 1997 год), можно отметить только 
указатель заполнения поля шариками на компоненте РгодгеззВаг (Рис. 
5.8). 

























Рис. 5.8. Цветные линии 1.01 

В игре АІЪасІетіс Ыпез 1.20 (АШайетіс Сгоир, 2000 год) (Рис. 5.9) вы 
найдёте красивую графику (выбор из нескольких скинов и наборов 
фишек), приятную музыку и удобный интерфейс. 

Собирать можно не только линии, но также прямоугольники и блоки. 
Имеется возврат последнего хода, три уровня сложности (6-8 цветов 
шариков), динамический указатель пути, подсказки на табло и на поле). 
Если вы не ищете экзотики, то эта игра для вас. 



Рис. 5.9. АІІіасІетіс Ипез 
























Игры Тёмные линии (ОагкИпез 2000 Еіііе 2.1 ) (Рис. 5.10) и ОагкИпез 3: ЕКА 
(2001 год) (Рис. 5.11) имеют игровое поле 10 на 10 клеток, позволяют 
изменять скины и вид фишек. 



Рис. 5.10. Тёмные линии 
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Рис. 5.11. Тёмные ОогкИпез 3: ЕКА 

Из дополнительных возможностей можно назвать: откат на 1 ход назад, 
несколько уровней сложности игры (в усложнённом варианте часть 
клеток поля на время блокируется - с них и на них нельзя ходить), 
появляется не 3, а 4 новых фишки, составлять можно не только линии, но и 
прямоугольники, кольца, кресты, углы или блоки. 































5 Зіаг Ргее Ыпез2.1 (2001 год) (Рис. 5.12). 



Рис. 5.12. 5 51аг Ргее Ипез 2.1 


Игра ведётся по классическим правилам, но имеется особый шарик - 
джокер, который может заменить шарик любого цвета. Очки начисляются 
прогрессивно - в зависимости от длины цепочки. 

В игре Соіог Ипез 99 (Рис. 5.13) Максима Иванова вас порадуют: несколько 
видов оформления поля, интересная заставка и - классические правила, 
осложнённые хитрым начислением набранных очков. 



Рис. 5.13. Соіог Ипез 99 





































































В игре Мадіс Ппез (версия 3.6, 2006 год, А.Сергеев, П.Тарасов] (Рис. 5.14] 
следует в первую очередь отметить интересную графику: вращающиеся 
объёмные шарики, освещение которых меняется в зависимости от 
положения курсора мыши. От классического варианта эта игра отличается 
только тем, что сразу появляются только три шарика, а следующие 
показываются не только на табло, но и на поле. 



Рис. 5.14. Мадіс Ипез 


ЗИ Ппез 1.2 (автор Александр Шелемехов, 2001 год] - настоящая 
трёхмерная игра (Рис. 5.15]. 



Рис. 5.15. 30 Ипез 1.2 
























































































В Нопеу Ипез (ІЧікіІа, 1995 год) игра происходит на гексагональном поле 
(Рис. 5.16), что не только радует глаз, но и облегчает задачу игрока, ведь 
теперь линии можно выстраивать не по четырём, а по шести 
направлениям. Более того, разрешается не только перемещать фишки на 
свободные клетки, но и менять местами две соседние и даже пропустить 
очередной ход, хотя пользы от этого не много. 



Рис. 5.16. Нопеу ііпез 

Очень любопытный вариант игры, правда, слегка омрачённый плохо 
подобранной музыкой и звуковыми эффектами. Ну, и ложка дёгтя в бочку 
мёда: так как задача игрока - не наполнение сотов, а их опустошение, то, 
скорее, он не пчёлка, а трутень. Но тут как в сказке: добро всегда 
побеждает зло, а соты всё рано будут наполнены мёдом, сколько бы вы его 
ни уничтожали! 



































Нить Ариадны, или Как выбраться из лабиринта 


На первый взгляд, в игре Цветные линии нет никакого лабиринта. А всё- 
таки он есть! 

Вот вы выбрали шарик и указали клетку, на которую он должен перейти. 
Тут и возникают вопросы: возможен ли такой переход и, если возможен, то 
как найти самый короткий путь из одной клетки в другую. 

В данной игре это необязательное условие, но и гонять шарик по 
всему полю тоже негуманно; во многих других играх придётся 
искать именно кратчайший путь, так что лучше подготовиться к 
этому заблаговременно. 

Поскольку целый класс задач посвящён выбору правильного пути, то мы 
рассмотрим эту проблему более подробно. Оставим на время нашу 
программу и сыграем этюд на тему лабиринта. 

Итак, откройте новый проект и установите на форме сетку ддРоІе 
размером 12 х 12 клеток. Для хранения информации о лабиринте заведите 
массив тазРоІе: 



шазРоІе: аггау[0..11, 0..11] оі: іпііедег; 


Как известно, в лабиринте есть проходимые и непроходимые клетки (в 
реальных лабиринтах, разумеется, клеток нет, а вот в головоломных - 
чаще всего имеются). Обозначим первые константой СО, вторые - 5ТОР. 
Значения им можно присвоить любые отрицательные, чтобы уметь 
отличать их от номеров, которые мы будем записывать в клетки: 


сопз-Ь 

СО= -1; 
5ТОР= -2; 


Прежде всего, научимся из пустой сетки делать лабиринт. Вообще-то над 
хорошим лабиринтом нужно изрядно поработать (вспомните Дедала, 
знаменитого строителя первого лабиринта на острове Крит), но для нас 
качество лабиринта никакого значения не имеет, поэтому мы будем 
просто закрашивать клетки белым (проходимые) и чёрным 
(непроходимые) цветом. 

Сложность лабиринта определяется, в том числе, количеством 
непроходимых клеток на поле, поэтому вы можете создавать лабиринты 
любой сложности, изменяя значение переменной Рі/. А дальше всё просто: 






случайным образом мы расставляем чёрные и белые клетки на поле - и 
лабиринт готов: 


//СОЗДАТЬ ЛАБИРИНТ 

ргосесіиге ТРогшІ . СгеаТеЪаЬ ; 

ѵаг 

і, 3 : іпТедег; 

Ьедіп 

Тог 3 : = 0 То 11 сіо 
Тог і:= 0 То 11 сіо 

ІТ КапсІот(ІОІ) >= БіТ ТЬеп 
тазРоІе [і,з] := СО 
еізе 

тазРоІе[і,з]:= 5Т0Р; 
сідРоІе. ІпѵаІісіаТе; 
епсі; 


Он будет появляться при старте программы: 


//СТАРТ ПРОГРАММЫ 

ргосесіиге ТРогшІ. РогтСгеаТе (Зепсіег: ТОЪ]есТ); 

Ьедіп 

Капсіоті ге ; 

СгеаТеЪаЬ; 

епсі; 


А если он вам не понравится, вы в любой момент можете его заменить 
другим, нажав кнопку: 


//НОВЫЙ ЛАБИРИНТ 

ргосесіиге ТРогшІ . ВиТТопІСІіск (Зепсіег : ТОЪ^есТ) ; 

Ьедіп 

СгеаТеЪаЬ; 

епсі; 


Для изменения «сложности» лабиринта (по сути, числа препятствий], 
установим на поле скроллер зЪВф 


//УСТАНОВИТЬ СЛОЖНОСТЬ ЛАБИРИНТА 0..100% 

ргосесіиге ТРогшІ. зЬОіТСІіапде (Зепсіег : ТОЬзесТ); 
Ьедіп 

сііТ:= зЬБіТ. РозіТіоп; 

ІЫБіТ . СарТіоп : = іпТТозТг (БіТ) ; 

СгеаТеЪаЬ; 

епсі; 


Теперь нужно выделить в сетке начальную и конечную клетки. Так как это 
только набросок для будущих программ, то мы не будем тратить много 
времени на этот процесс. Поступим просто: нажав левую кнопку мыши, мы 










зададим начальную клетку, правую - конечную. Под координаты этих 
клеток отведём переменные: 


ВедіпСеІІ, ЕпсіСеІІ: ТРоіпЛ; 


А числа в этих клетках обозначим константами 


ВЕС_СЕЬЬ= 0; 
ЕЫБ СЕЬЬ= -3; 


ЕЫО_СЕИ может быть любым отрицательным (или большим 
положительным) числом, а вот ВЕС_СЕИ непременно должна быть равна 
нулю, так как именно с этой клетки и начнётся поиск короткого пути. 
Подробности смотрите в описании алгоритма поиска. 



//ВЫДЕЛИТЬ КЛЕТКИ 

ргосесіиге ТРогтІ . сідРоІеМоизеБсжп (ЗепЬег : ТОЬ^ есЬ; ВиЬЬоп : ТМоизеВиЬЬоп; 

ЗЬііЬ: ТЗЬііЬЗЬаЬе; X, У: ІпЬедег); 
ѵаг 

АСоІ, АКом: іпЬедег; 

Ьедіп 

//координаты мыши: 

сІдРоІе .МоизеТоСеІІ (х, у, АСоІ, АКом) ; 

//если нажата левая кнопка мыши, то отмечаем начальную 
іі ззЬеіЬ іп зЬііЬ ЬЬеп Ьедіп 


ОБРАТНО 


Не всякий лабиринт придётся вам по вк^Ру, 1'юэтому у вас должна быть 
возможность самостоятельно конструировать лабиринт. Сделать это 
очень просто: щёлкая левой кнопкой мыши, удерживайте клавишу СТКЬ, 


//проходимая клетка: 
іі ззСЬгІ іп зЬііЬ ЬЬеп 
тазРоіе[АСоІ, АВом] := СО 
еізе іі ззАІЬ іп зЬііЬ ЬЬеп 
тазРоіе[АСоІ, АВом] := ЗТОР 
//непроходимая клетка: 
еізе Ьедіп 

ВедіпСеІІ:= РоіпЬ(АСоІ, АВош) ; 
тазРоіе[АСоІ, АВом] := ВЕС_СЕЬЬ 
епсі 


епсі 

//отметить конечную точку: 
еізе Ьедіп 

ЕпсіСеІІ: = РоіпЬ (АСоІ, АВом) ; 
тазРоіе[АСоІ, АВом] := ЕЕВ_СЕЬЬ; 
епсі; 


ЬдРоІе. ІпѵаіісІаЬе 
епсі; 



























ОеІрНі в примерах, играх и программах 


чтобы поставить проходимую клетку, или АЬТ, чтобы запретить проход 
через данную клетку. 

Для запуска процедуры поиска пути мы установим на форме ещё одну 
кнопку. 

Вот так примерно может выглядеть интерфейс этой программы (Рис. 5.17, 
сдева). 




Рис. 5.17. Интерфейс программы 


Путь в лабиринте найден! 


Итак, отмечаем клетки и нажимаем кнопку Найти путъ. Если путь 
существует, он будет показан на экране (Рис. 5.17, справа), в противном 
случае появится только соответствующая надпись: 


//ИСКАТЬ ПУТЬ 

ргосесіиге ТРогшІ . Ви , Ь , Ьоп2С1іск (Зепсіег : ТОЪ^есѣ) ; 

Ьедіп 

ІТ ГіпсіРаЫі Ыіеп 
ЗЬомРаЬЬ. 
еізе 

зЬошпеззаде ('Пути нет') 

епсі; 


Есть несколько алгоритмов поиска пути в лабиринте, мы воспользуемся 
наиболее эффективным из них, который называется поиском в ширину (в 







































































































применении к поиску пути в лабиринте он называется также методом 
волновой трассировки, или волновым алгоритмом]. 

Заведём массив СоогдЫзі, в который будем записывать координаты тех 
клеток, которые следует рассмотреть. Сначала мы помещаем в него 
координаты начальной точки ВедіпСеІІ. Переменная рСгКеад всегда 
указывает на очередную анализируемую клетку в этом списке. Так как 
пока в списке только одна клетка, рігКеай указывает на неё. На каждом 
шаге мы извлекаем из списка координаты очередной клетки и проверяем 
всех её соседей. В лабиринте разрешается двигаться только влево-вправо 
и вниз-вверх и только по проходимым клеткам (в них записано число СО 
или ЕЫО_СЕИ - для конечной клетки). Найдя подходящую клетку, мы 
дописываем её координаты в конец списка СоогдЫзі. Индекс для записи 
хранится в переменной рігѴѴгііе. В начале поиска мы присваиваем ей 
значение 2, так как это первый свободный индекс в массиве СоогдЫзі. 
После того как записаны координаты новой клетки, указатель ріг\Ѵгііе 
смещается на следующий индекс. Кроме того, в саму клетку мы 
записываем число, на единицу большее, чем в текущей клетке. Оно, как 
легко понять, показывает минимальное число шагов, необходимое для 
перехода в эту клетку из начальной. Именно поэтому в начальную клетку 
мы и записали 0. Во все соседние проходимые клетки будет записана 
единица. Во все проходимые (и ещё не отмеченные!) клетки, 
соседствующие с ними, - двойка, и так далее. 


Этот процесс хорошо виден на следущих двух картинках (Рис. 5.18). 
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Рис. 5.18. Погнали волну по лабиринту! 


























































































Внимательно проследите, как программа нумерует клетки! Это полезное 
занятие приведёт вас к ответу, почему алгоритм - весьма образно! - 
называется волновым. 

Поиск заканчивается либо при достижении конечной клетки (тогда 
функция РіпсІРаіИ возвращает Тгиё), либо при исчерпании списка (путь не 
найден, функция возвращает Раізе ]. 


//НАЙТИ ПУТЬ МЕЖДУ ДВУМЯ ТОЧКАМИ 

^ипсЬіоп ТРогшІ . РіпсіРа-Ыі : Ьооіеап ; 

ѵаг 

//список координат: 

СоогсІЪізР: аггау [ 1. . 143] оР ТРоіпР; 

//указатели в списке: 
рРгЭДгіРе, рРгВеасІ: іпРедег; 
р, д: іпРедег; 
і, ^ : іпРедег; 

//проверить координаты 

РипсРіоп ТезРСоогсІ (х, у: іпРедег): Ьооіеап; 

Ьедіп 

Р.ези1Р: = Ргие; 

ІР (х<0) ог (х>11) ог (у<0) ог (у> 11)ог 
( (шазРоІе [х, у] <> СО) апсі (шазРоІе [х, у] О ЕЫР_СЕЬЬ) ) РЬеп 
Р.ези1Р: = Раізе; 

епсі; 

Ьедіп 

//если ВедіпСеІІ = ЕпсІСеІІ, то начальная клетка совпадает с конечной, 
//и путь искать не нужно! 

//заносим в список координаты начальной клетки: 

СоогЬЫзР [ 1 ] : = ВедіпСеІІ; 

//устанавливаем указатель для считывания координат на начало списка: 
рРгКеасі: = 1; 

//устанавливаем указатель для записи новых координат на следующий ин¬ 
декс : 

рРгЭДгіРе:= 2; 

//в начальной клетке в массиве шазРоІе находится ВЕС_СЕЪЬ= О 

//двигаемся от начала списка к его концу, пока он не кончится: 
мЬіІе рРгВеасІ < рРгЭДгіРе сіо Ьедіп 
//координаты текущей клетки: 

р:= СоогсІЪізВ [рРгВеасІ] .х; д:= СоогсІЬізВ [рРгВеасІ] .у; 

//проверяем соседние с ней клетки: 

Рог і:= р - 1 Ро р + 1 сіо 
Рог ]:=д-11:од+1с1о 

//если нашли соседнюю проходимую клетку, 

ІР ( (і=р) ог ^=д) ) апсі ТезРСоогЬ (і, ^) РЬеп 
Ьедіп 

//то записываем в неё число, на единицу большее, 

//чем в текущей клетке: 
шазРоІе [і, :) ] : = тазРо1е[р,д] + 1; 

//если дошли до конечной клетки, 

ІР (і= ЕпсІСеІІ.х) апсі ^ = ЕпсЮеІІ.у) РЬеп Ьедіп 
//то путь найден: 




Кези11:: = Тгие; 
ехіЕ; 
епсі 

еізе Ьедіп 

//записываем координаты соседней клетки в конец списка: 
СоогсіЬізІ: [рЕгЭДгіЕе] := РоіпЕ (і, ^ ) ; 

//перемещаем указатель: 
іпс (рЕгЭДгіЕе) ; 
сІдРоІе. ІпѵаІісіаЕе; 

//зіюшпеззаде (іпЕЕозЕг (шазРоІе [і^ ] ) + ' х= ' +іпРРозРг (і) + ' 

у='+іпРРозРг(^)); 

епсі; 

епсі; 

//переходим к следующей клетке в списке: 
іпс (рРгКеас!) ; 

епсі; 

//путь не найден: 

Кези1Р:= Еаізе; 
епсі; 


За работой алгоритма удобно наблюдать в пошаговом режиме. 
Раскомментируйте эту строку, и вы сможете отслеживать все изменения в 
сетке: 


зіюшпеззаде (іп-ЬРозРг (шазРоІе [і^ ] ) + ’ х=' +іпЕРозРг (і) + ' у= ’ +іпР1:озРг (^ ) ) ; 


Легко заметить, что этот же алгоритм можно использовать и для 
закрашивания области поля в какой-либо цвет. Для этого достаточно в 
качестве начальной клетки (или точки] выбрать любую клетку внутри 
области, а координаты конечной точки задать отрицательными. В этом 
случае путь найти невозможно, поэтому вся область будет заполнена 
числами или закрашена выбранным цветом. 

Все изменения в массиве тазРоІе нужно отразить на экране: 


//ОТРИСОВАТЬ СЕТКУ 

ргосесіиге ТРогшІ . сідРоІеБгаѵгСеІІ (Зепсіег: ТОЬ^есС; АСоІ, АКои: ІпЬе- 
дег ; 

КесЬ: ТКесЬ; ЗЬаЬе: ТСгісШганЗЬаЬе); 
ѵаг 

з: зЬгіпд; 

Ьедіп 

//закрасить клетку своим цветом: 
сазе шазРоІе[АСоІ , АКои] оі 

СО: сідРоІе . Сапѵаз .ВгизЬ.. Соіог : = сІШііЬе; 

ЗТОР: сідРоІе . Сапѵаз . ВгизЬ. Соіог : = сІВІаск; 

ВЕС_СЕЬЬ: сідРоІе . Сапѵаз . ВгизЬ. Соіог : = сІУеІІои; 

ЕКВ_СЕЬЬ: сідРоІе . Сапѵаз . ВгизЬ. Соіог : = сІВІие; 

// номер хода: 
еізе Ьедіп 

иіЬЬ КесЬ, сідРоІе. Сапѵаз сіо Ьедіп 








ВгизЪ. . Зіуіе : = ЬзСІеаг; 

з:= іпЫсозЬг (тазРоІе [АСоІ, АКоѵ] ) ; 

ЬехІсгесЬ (КесЬ, ІеіЫ- (гідЫс-ІеіЬ-'Ьех'ЬѵісіЫі (з) ) сііѵ 2, 
Вор+(Ьо'Ь'Ьот-'Ьор-'Ьех'ЫіеідІі'Ь (з) ) сііѵ 2, з) ; 

епсі; 

епсі; 

епсі; 

сідРоІе . Сапѵаз . РіІІЕесі (КесЬ) ; 
епсі; 


Теперь мы знаем, существует ли путь между двумя точками или нет, но 
как его найти? А очень просто! Нужно двигаться от конечной точки к 
начальной по тем числам, которые мы записали в клетки. Очевидно, что в 
конечной клетке находится самое большое число, равное длине всего 
пути. Попасть в неё можно только из клетки с числом на единицу меньше. 
И так далее, пока мы не достигнем точки с нулём, которая служит 
начальной. По пути выделяем на экране все клетки пути красным цветом. 


//ПОКАЗАТЬ ПУТЬ 

ргосесіиге ТРогтІ . ЗЪотеРаЫі ; 

ѵаг 

п, ЬепРаРЬ: іпРедег; 
і; Р; ч: іпРедег; 
раРЬ: аггау [ 0 . . 144 ] оР ТРоіпР; 

РесР: ТРЕСТ; 
з: зРгіпд; 

//проверить координаты: 

РипсРіоп ТезРСоогсІ (х, у: іпРедег): Ьооіеап; 

Ьедіп 

Рези1Р:= Ргие; 

ІР (х<0) ог (х>11) ог (у<0) ог (у> 11)ог (тазРоІе[х,у]<> п-1) РЬеп 
Рези1Р:= Раізе; 

епсі; 

Ьедіп 

//длина пути равна числу в конечной клетке: 

ЬепРаРЬ:= тазРоІе [ЕпсІСеІІ. х, ЕпсіСеІІ.у]; 
п:= ЬепРаРЬ; 

//конечная клетка пути: 
раРЬ[п] := ЕпсЮеіі; 

//двигаемся от неё к начальной клетке: 
гереаР 

//найти соседнюю клетку с числом п-1: 
р:= раРЬ[п].х; д:= раРЬ[п].у; 

//проверяем соседние клетки: 

Рог і:= р - 1 Ро р + 1 сіо 
Рог ]:=д-11:од+1с1о 
//нашли подходящую клетку: 

ІР ( (і=р) ог ^=д) ) апЬ ТезРСоогсІ (і^ ) РЬеп 
Ьедіп 

//записываем её координаты: 
раРЪ. [п-1] := РоіпР (і^ ) ; 

Ьгеак; 






епсі; 

//ищем клетку с предыдущим номером: 
сіес (п) ; 
ипЬіі п<0; 

//показать путь в сетке: 

Гог і:= 1 іо ЬепРаЬЬ-1 сіо Ьедіп 

{ЬізЬВохІ.ІЬетз. АсМ (іпЬЬозЬг(і) + ' ' + іпЬЬозЬг(раЬЬ[і] .х) + 1 1 + 

іпЬЬозЬг (раЬЪ. [і] . у) ) ; } 

КесЬ:= сідРоІе . СеІІКесЬ (раЬЪ. [ і ] . х, раЬЪ. [ і ] .у) ; 

//выделить красным цветом: 
сідРоІе . Сапѵаз . ВгизЪ. . Соіог : = сІКесІ; 
сідРоІе . Сапѵаз . ЕіііКесЬ (КесЬ) ; 
міЬЪ. КесЬ, сідРоІе. Сапѵаз сіо Ьедіп 
з:= іпЬЬозЬг(і); 

ЬехЬгесЬ (КесЬ, 1еЕЬ+(гідЬЬ-іеЕЬ-ЬехЬмісІЫі (з) ) сііѵ 2 , 

Ьор+(ЬоЬЬош-Ьор-ЬехЬЬеідЬЬ (з) ) сііѵ 2, з) ; 

епсі; 

епсі; 

епсі; 


Действуя таким образом, мы найдём только один из возможных (и самых 
коротких!) путей. Нам пока большего и не надо, но, если вам придётся 
проверять единственность решения какой-либо задачи, то имейте это в 
виду! 



Исходный код программы находится в папке ІаЪ. 


Большая стройка, или «Линейное» программирова¬ 
ние 

Подковавшись практически и теоретически, мы вполне созрели до 
собственноручного построения программы! 

Не забудьте установить компонент с нашей кнопкой! Впрочем, вы легко 
можете избавиться от нововведений, если замените кнопки ТЕазуВиііоп 
стандартными. Для этого удалите новые кнопки, установите те кнопки, 
которые вам нравятся, и настройте их свойства и обработчики событий. 

Начнём с формы. Она будет простой, прямоугольной, но без строки 
заголовка ( Вогдег5і:уІе=Ъ5Мопе ), которая в данном случае только портила 
бы вид окна приложения. Заголовок мы заменим картинкой в компоненте 
Ітадеі (картинки находятся в папке Еез/Ъиііогі). Перемещать окно 
приложения придётся также за картинку: 


ргіѵа1:е 






{ РгіѵаРе сіесІагаРіопз } 
гдп: ИКСЫ; 

ргосесіиге ѴІММСНіРТезР ( ѵаг Мзд: ТЭДМЫСНіРТезР) ; шеззаде 
Ш ЫСНІТТЕ5Т; 


//ПЕРЕМЕЩЕНИЕ ОКНА 

ргосесіиге ТРогтІ .ЮМЫСНі-ЬТезѣ ( ѵаг Мзд: ТІлГМЫСНіРТезР) ; 
Ьедіп 

ІпНегіРесІ; 

ІлГІТН Мзд ИО 

ЭДІТН ЗсгеепТоСІіепР (РоіпР (ХРоз , У Роз) ) ИО 
ІР РРІпКедіоп(гдп,X, У) РЬеп 
КезиІР: = НТСАРТІОИ 
еізе КезиІР : = НТЖЖНЕКЕ 

епсі; 


Когда мы нажимаем кнопку мыши на картинке, эта процедура указывает 
приложению, что мышка будто бы находится на заголовке окна. Но 
сначала мы должны сформировать область по форме картинки Ітадеі. 
Это удобно сделать при запуске приложения: 


/////////////////////////////////////////////////////////// 
//////////////////////// ФОРМА //////////////////////////// 
/////////////////////////////////////////////////////////// 


//СОЗДАТЬ ФОРМУ 

ргосесіиге ТРогтІ.РогтСгеаРе (ЗепЬег : ТО^есР) ; 

Ьедіп 

//цвет фона: 

Роп:= гдЬ(120,144,120); 

Со1ог:= Роп; 

Рапеіі.Соіог:= Роп; 

Рапе12.Соіог:= Роп; 

ЬдЫехРВаІІз . Соіог : = Роп; 

//создать поле: 

Ро1е:= РРоІе.СгеаРе; 

//очки за игру: 

5соге:= РЗсоге.СгеаРе; 

//сформировать "заголовок окна": 
теіРЪ. ітадеі сіо 

гдп:= СгеаРеКесРКдп (ЬеРР,Тор,ІіеРР+ИісіР]і, Рор+ НеідЬР); 


//размеры поля по умолчанию: 

Роіе . ИісіРЬ : = 9; 

Роіе.НеідЬР:= 9; 

//шарики: 

ЫитВаІІз.пЗгаги:= 5; 

ИитВаИз . пРоРот: = 3; 

ИитВаПз . пСоіог : = 7; 

ТуреЕід:=РРЬіпез; 

//размеры клетки сетки: 
отСе11:= ЬдРоІе . ОеРаиІРСоІИісіРЬ; 
ЬСеІІ: = ЬдРоІе . ВеРаиІРВомНеідЬР ; 
епсі; 






Здесь же мы окрашиваем окно приложения и компоненты в какой-нибудь 
забавный цвет и производим настройки игры, речь о которых пойдёт 
ниже. Непосредственная подготовка к новой игре будет происходить при 
активации формы - так мы сможем уже после старта программы 
приступить к игре, не нажимая никаких кнопок: 


//ПОДГОТОВИТЬСЯ К ИГРЕ 

ргосесіиге ТРогхпІ . ЕогшАс , Ьіѵа , Ье (Зепсіег : ТОЬ^есі:); 
Ьедіп 

Ргераге; 
сіеіау (1000) ; 

Роіе.ЗГагГСате; 
епсі; 


Конечно, при этом игра стартует со свойствами по умолчанию: 

- размеры поля 9x9 клеток; 

- сразу появятся 5 шариков, а дальше каждый раз будут появляться 3 
шарика; 

- всего в игре используются шарики 7 разных цветов; 

- собирать из шариков нужно линии. 

Все эти настройки вы можете видеть в процедуре РогтСгеаіе. 

Чтобы края формы получились более красивыми установите свойство 
формы СМЗИ в Раке, а в процедуре-обработчике формы РогтРаіпі: 
напишите: 


//ОТРИСОВАТЬ ФОРМУ 

ргосесіиге ТРогтІ . РогтРаіпЬ (Зепсіег: ТОі^есЬ) ; 

ѵаг 

КЕСТ: ТКесЬ; 

Ьедіп 

//придать объёмный вид краям формы: 

КЕСТ:= СііепЬКесЬ; 

БгашЕсІде (Сапѵаз . Напсііе, КесЬ, ЕВСЕ_КАІ5ЕО, ВЕ_КЕСТ) 
епсі; 


Ну и чтобы закончить с формой, забежим немного вперёд и напишем 
обработчик события ОпРогтОезігоу, которое возникает при закрытии 
приложения: 


//УНИЧТОЖИТЬ ФОРМУ 

ргосесіиге ТРогшІ. РогшБезЬгоу (Зепсіег: ТОі^есЬ) ; 

Ьедіп 
Роіе.Егее; 








//Ое1е1:еОЬ^ес1: (гдп) ; 
Тітегі.ЕпаЫесІ: = Еаізе; 
Тітег2 .ЕпаЫесІ:= Еаізе; 
Зсоге .Егее; 

Топиз .Егее; 

Ъосі. Егее; 
епсі; 


Сущность этих «мероприятий» станет понятна вам немного позже. 

Теперь мы украсим форму кнопками ТЕазуВиЫоп (или другого типа, если 
вы передумали). Достаточно шести штук: 



Мате=Ы:пМе\л/Сате НіпІ=Новая игра ВиІІопВогс1ег= ЬгІЧопе 



Мате=Ы:п\Л/Н Ніпі=Размеры поля 



№те=ЫпОр1:іоп5 НіпІ=Настройки 


н 


№те=Ы:пТуреРі§ НіпІ=Вид собираемых фигур 


Мате=Ы:пНеІр НіпІ=Справка 



Мате= ЬіпЕхіІ НіпІ=Выход из программы 


Размеры всех кнопок 40 х 40 пикселей. Картинки для них находятся в 
папке Кез/Ъиііоп. 

Назначение всех кнопок ясно следует из подсказок. 

С некоторыми из них мы можем «разобраться» уже сейчас. Что может быть 
проще, чем закрыть программу? - Нажимаем кнопку ЪіпЕхіі:- и всё: 

//ЗАКРЫТЬ ПРОГРАММУ 

ргосесіиге ТРогшІ .ЬѢпЕхіѣСІіск (Зегкіег: ТОЪ^есѣ) ; 

Ьедіп 


сіозе 


епсі; 


Как вы помните, при этом возникает событие ОпЕогтОезСгоу и вызывается 
обработчик этого события. 






Немного сложнее вывести справку по программе - кнопка ЪіпНеІр - . 


//ВЫЗОВ СПРАВКИ 

ргосесіиге ТРогшІ .ЬЬпНеІрСІіск (Зепсіег: ТОЬіесЬ) ; 

ѵаг з: зЬгіпд; 

Ьедіп 

з : = ехЬгасЬііІераЬЬ. (арріісабіоп . ехепате) + ' ЪіпезНеІр . ЬЬт' ; 
ЗЬеІІЕхесиЬе (ЬапсІІе, ' ореп ' , ' іехріоге ' , рСЬаг (з) , 

' ' , 5М_5ЖЖМАХІМІ2ЕВ) ; 
епсі; 


В самой процедуре, конечно, ничего нового для нас нет, но придётся 
написать файл справки. Впрочем, в начале главы для этого имеется вся 
необходимая информация! 

Перейдём к следующей кнопке - ЪіпТуреРід. В классическом варианте из 
шариков следует строить линии, но мы будем собирать и блоки, под 
которыми мы будем понимать, любые фигуры (в том числе и линии, за 
исключением «диагональных»), имеющие «площадь» не менее 6 шариков: 


//тип собираемых фигурок: 
ТуреЕід: (ЬіЪіпез, ЬіВІоскз) ; 


Выбирать тип собираемых фигур можно и до, и во время игры, нажав 
кнопку ЫпТуреРід. Под кнопкой появится меню - дальше следует 
действовать, как обычно (Рис. 5.19). 



Рис. 5.19. Выбираем тип сборки! 


//ВЫБРАТЬ ТИП СОБИРАЕМЫХ ФИГУР 

ргосесіиге ТРогшІ .Ь'ЬпТуреЕідСІіск (Зепсіег: ТОЬіесЬ) ; 

ѵаг 

р: Троіпб; 

Ьедіп 

//вывести всплывающее меню: 

р:= СІіепЬТоЗсгееп(роіпЬ(ЬЬпТуреЕід.ЪеіЬ, ЬЬпТуреЕід.Тор+ 
ЬЬпТуреЕід.НеідЬЬ)) ; 

рориршепи2. Рорир (р.х, р.у); 

//сбросить рекорд: 
зсоге.Кес:= 0; 
епсі; 









Установим на форме всплывающее меню РорирМепи2 и наберём две 
строки (Рис. 5.20). 


_ 

Рогті .РорурМепи2 [-][П]^Д 


■ Линии 

Блоки 



Рис. 5.20. Выбираем тип сборки! 

По умолчанию играется классический вариант - с линиями (первая строка, 
Ыат е=тіЫпе5, Іа %=1). После выбора пункта меню программа направляет 
нас в обработчик события ОптіЫпезСІіск-. 


ргосесіиге ТРогшІ . тіЬіпезСІіск (Зепсіег : ТОЪ^еск); 

Ьедіп 

//показать пункт меню как выбранный: 

(Зепсіег аз ТМепиІбет) . Сііескесі: = Тгие; 

Щ (Зепсіег аз ТМепиІРет) .Рад=1 РЬеп ТуреРід:= РКЫпез 
еізе ТуреГід:= РІіВІоскз; 

//начать новую игру: 

//ЫеиСате; 
епсі; 


Если вы хотите, чтобы игра велась без смены фигур, то раскомментируйте 
строку //ЫеіѵСате;. 

Другие настройки игры вызываются кнопкой ЪіпОрІіопБ. Их довольно 
много, поэтому мы добавим к проекту ещё одну форму - /гтОрііот, на 
которой и разместим все элемещты управления: табулятор ТаЬСопігоІІ и 
кнопку ГОТОВО (Рис. 5.21). 


Ж Настройки 
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Рис. 5.21. Настройки - по настроению! 
















































































Форма будет появляться под кнопкой после нажатия на неё: 


//НАСТРОЙКА ПАРАМЕТРОВ ИГРЫ 

ргосесіиге ТРогшІ .Ь-ЬпОр-ЬіопзСІіск (Зепсіег: ТОЬ^есЬ) ; 

Ьедіп 

//вывести форму для настройки параметров игры: 
ігтОрЬіопз . Ье ІЬ : =1е Й:+Ы:пШ . ЪеіЬ+ЪЬпШ . місіі:Ь; 
ігтОрЬіопз . Тор : = Ьор+ЪЬпѴШ . Тор+ ЪЬпѴШ . НеідЬЬ; 

ігтОрЬіопз . ЗЬомМосІаІ ; 

//установить новые параметры - 

//число шариков , появляющихся при старте новой игры: 

ЫшпВаІІз . пЗгаги : = ігтОрЬіопз . КасІіоСгоирІ. ІЬетІпсІех+ 1; 

//число шариков , появляющихся после очередного хода: 
іі ЫитВаІІз . пРоЬотО ігтОрЬіопз . Касііо0гоир2.ІЬетІпсіех+ 3 ЬЬеп 
Ьедіп 

ЫитВаІІз . п Робот : = РгтОрЬіопз . КаЫо0гоир2 . ІЬетІпсіех+ 3; 
//обновить шарики в табло: 

Роіе. ІпіШехЬВаІІз ; 

Роіе. ЗЬомЫехбВаІІз; 

ЬдЫехЬВаНз . ІпѵаІісіаЬе; 
епсі; 

//число шариков разного цвета: 

ЫшпВаІІз . пСоІог : = РгтОрЫопз . КасііоСгоирЗ . ІбетІпсІех+ 1 ; 

//так как параметры изменились , то обнулить рекорд: 
зсоге.Кес:= 0; 
епсі; 


Табулятор имеет 3 страницы с компонентом ТКасІіоСгоир на каждой. Их 
нужно заполнить данными так, как показано выше. 

Таким образом, по умолчанию сразу после начала игры появляются 5 
шариков, но потом мы можем задать от 1 до 12. Чем больше шариков, тем 
энергичнее начинается игра! 

После каждого хода на поле возникают ещё 3 шарика - по умолчанию, как 
в классичеком варианте. Если их количество уменьшить, то игра будет 
протекать очень вяло, но зато можно добавлять и больше шариков - до 9 
за один раз. Ясно, что большое количество шариков сильно усложняет 
игру, и наоборот. 

По умолчанию на поле появляются шарики 7 разных цветов. Ещё более 
увеличивать «пестроту» на поле смысла нет, поэтому число цветов можно 
только уменьшить - до одного. Так у игрока появятся новые возможности 
по составлению фигур из шариков! 




Объединим всю информацию о шариках в записи ТЫитВаПз: 


■Ьуре 

//количество шариков: 

ТИишВа1І2= Кесогсі 

пЗгаги: іпВедег; 
пРоВот: іпВедег; 
пСоіог: іпВедег; 
епсі; 


ѵаг 

//число шариков в игре: 
ЫитВаІІз : ТЫитВаІІз; 


Например, переменная ЫитВаПз.пВгаги хранит число шариков, которые 
сразу появляются на поле. 

При запуске приложения в процедуре ТРогтІ.РогтСгеаіе как раз и 
устанавливаются значения по умолчанию: 


//шарики: 

ЫитВаІІз .пЗгаги:= 5; 
ЫитВаІІз .пРоРот:= 3; 
ЫитВаІІз . пСоіог := 7; 


Текст модуля ОрііопзІІпіі:: 


ипіР ОрѣіопзШііР; 

іпРегРасе 

изез 

Міпсіоиз, Меззадез, ЗузіЗРіІз, Сіаззез, Сгарііісз, СопРгоіз, Рогтз, 
Біаіодз, 

ЗРсіСРгІз, ЕхРСРгІз, СотСРгІз; 

Руре 

ТРгтОрРіопз = сіазз (ТЕогт) 

ТаЪСопРгоІІ: ТТаЬСопРгоІ; 

КасііоСгоирІ: ТКасііоСгоир; 

КасііоСгоир2 : ТКасііоСгоир; 

КасііоСгоирЗ: ТКасііоСгоир; 

ВиРРопІ: ТВиРРоп; 

ргосесіиге ТаЪСопРгоІІСііапде (Зепсіег: ТОРдесР) ; 
ргосесіиге КасііоСгоирЗСІіск (Зепсіег: ТОЬдесР) ; 
ргосесіиге ВиРРопІСІіск (Зепсіег: ТОЪ^есР); 
ргіѵаРе 

{ РгіѵаРе сіесІагаРіопз } 
риЫіс 

{ РиЫіс сіесІагаРіопз } 










епсі; 

ѵаг 

ЬгтОрЬіопз: ТЬгтОрЬіопз; 
ітрІетепЬаЬіоп 
{$К *.ЬГМ} 

ргосесіиге ТЬгтОрЬіопз . ТаЬСопЬгоііСЬапде (Зепсіег : ТО^есЬ) ; 
Ьедіп 

сазе ТаЬСопЬгоІІ. ТаЫпсіех оЬ 
О: Ьедіп 

КасііоСгоирІ .ѴізіЫе: = Ьгие; 

КасііоСгоир2 . ѴізіЫе : = Гаізе; 

КасііоСгоирЗ .ѴізіЫе: = Гаізе; 
епсі; 

1: Ьедіп 

КасііоСгоирІ .ѴізіЫе : = Гаізе; 

КасііоСгоир2 .ѴізіЫе : = Ьгие; 

КасііоСгоирЗ .ѴізіЫе : = Гаізе; 
епсі; 

2 : Ьедіп 

КасііоСгоирІ .ѴізіЫе : = Гаізе; 

КасііоСгоир2 .ѴізіЫе : = Гаізе; 

КасііоСгоирЗ .ѴізіЫе : = Ьгие; 
епсі; 

епсі; 

епсі; 

ргосесіиге ТЬгтОрЬіопз . КасііоСгоирЗСІіск (Зепсіег : ТСЬдесЬ) ; 
Ьедіп 
сіозе 
епсі; 

ргосесіиге ТЬгтОрЬіопз .ВиЬЬопІСІіск (Зепсіег : ТО^есЬ); 

Ьедіп 

сіозе 

епсі; 

епсі. 


Тут единственная «хитрость» состоит в том, чтобы показывать нужный 
набор переключателей, а остальные скрывать, чтобы они не мешали. 
Конечно, можно просто увеличить размеры формы /гтОрііопз и 
разместить все переключатели (или движки, скроллеры и т.п.] так, чтобы 
они не перекрывали друг друга. 

Ну и последнее, что можно изменять в игре, - это размеры игрового поля. 
Если вы помните, в классическом варианте размер поля постоянен -9x9 
клеток. Мы раздвинем границы - пусть в нашей программе размеры поля 




изменяются от 6x6 до 12x12 клеток. После нажатия на кнопку Ып\ѴН под 
ней появится меню, в котором можно выбрать нужные размеры игрового 
поля (Рис. 5.22). 


6x6 

7x7 

8x8 

• 9x9 ь 

10 х 10 ^ 
Их 11 

12 х 12 


Рис. 5.22. Универсальное поле 

Код процедуры аналогичен коду процедуры ТРогтІ.ЫпТуреРідСІіск-. 


//ИЗМЕНИТЬ РАЗМЕРЫ ПОЛЯ 

ргосесіиге ТРогтІ .ЪѢпШІСІіск (Зепсіег : ТОЬ^есЬ); 
ѵаг 

р: ТроіпЬ; 

Ьедіп 

//вывести всплывающее меню: 

р:= СІіепЬТоЗсгееп(роіпЬ(ЪЬпѴШ.ЬеіЬ, ЬЬпМН.Тор+ ЬЬпИН .НеідЬЬ)); 
рориршепиі. Рорир (р.х, р.у); 

//сбросить рекорд: 
зсоге.Кес:= 0; 
епсі; 


//ИЗМЕНИТЬ РАЗМЕРЫ ПОЛЯ В МЕНЮ 

ргосесіиге ТРогшІ .ѵЬбСІіск (Зепсіег : ТОк^есЬ); 
ѵаг 

п: іпЬедег; 

Ьедіп 

//показать пункт меню как выбранный: 
(Зепсіег аз ТМепиІЬеш) . СЬескесі: = Тгие; 
//размеры поля: 

п:= (Зепсіег аз ТМепиІЬет) .Тад; 

//размеры поля: 

Роіе .Ѵ\ГісП:Ь.: = п; 

Роіе.НеідЬЬ:= п; 

//изменить сетку: 

Ргераге; 

сідРоІе. ІпѵаІісіаЬе; 
арріісабіоп.РгосеззМеззадез ; 

//начать новую игру: 

ЫеиСаше; 









епсі; 


Поэтому устанавливаем на форме компонент ТРорирМепи и набираем 
строки (Рис. 5.23]. 


Рогті .РортрМепііІ |- |;П](^( 


6x6 


7x7 

3x3 

■ 9x9 

10 х 1.0 

Их 11 

12 х 12 


^.і 


Рис. 5.23. Выбираем любимый размер 
Затем задаём значения свойства Іа§=6, 7,...,12. 

И последняя кнопка - ЪіпЫеѵѵСате - просто начинает новую игру по 
первому нашему требованию: 


//НАЧАТЬ НОВУЮ ИГРУ 

ргосесіиге ТРогшІ . ЪЬпИеѵСатеСІіск (Зепсіег : ТОк^есЬ); 
Ьедіп 
ИеиСаше 
епсі; 


//НОВАЯ ИГРА 

ргосесіиге ТРогшІ. ЫеѵЮате ; 

Ьедіп 

//подготовить сетку: 
Ргераге; 

//начать игру: 

Роіе.ЗЬагЬСате; 
епсі; 


Теперь мы умеем делать всё, кроме главного, - у нас нет игрового поля! 
Поэтому на компоненте Рапеіі мы установим сетку сІдРоІе, размеры клеток 
которой - 32 х 32 пикселя: 


Ѵаг 

//размеры клеток сетки: 
ѵСеІІ : іпЬедег = 32; 
ЬСеІІ : іпЬедег = 32; 























Этого вполне достаточно, чтобы картинки в них хорошо смотрелись на 
экране. 

При старте каждой новой игры вызывается процедура ТРогтІ.Ргераге, в 
которой вычисляются размеры поля (то есть компонента ддРоІе ] и оно 
устанавливается в центре панели: 


//ПОДГОТОВИТЬ ИГРОВОЕ ПОЛЕ 

ргосесіиге ТРогшІ. Ргераге ; 

ѵаг 

м,й, 1м: іпіседег; 

Ьедіп 

//размер клетки в пикселях: 
м: = мСеІІ; 

Ъ.:= мСеІІ; 

//толщина линий: 

1м: = сідРоІе . СгісіЫпеѴЛсі1:]п; 

//размеры игрового поля в клетках: 
сідРоІе . Со1Соип+: = Роіе . Ѵ\ГісііпЬ.; 
сідРоІе . Р.омСоип+ : = Роіе . НеідЫ:; 

//размеры в пикселях видимой части игрового поля: 
сідРоІе . Ѵ^ісІІсЬ.: = 3 + (м + 1м)* сідРоІе. Со1Соип1:-1; 
сідРоІе . Неідіпі: : = 3 + (Ь. + 1м)* сідРоІе . РомСоип+-1 ; 

//отцентрировать поле: 

сідРоІе . ЬеТ+: = рапеіі. ЪеТ1:+ (рапеіі. ЭДісІ'Цт-сІдРоІе . ѴЛсіісЬ.) сііѵ 2 + 1; 
сідРоІе . Тор : = рапеіі. Тор+ (рапеіі. Неідй+ -сідРоІе . Неідйі:) сііѵ 2 + 1; 
епсі; 


Так выглядит интерфейс программы в окне Конструктора формы (Рис. 
5.24). 



Рис. 5.24. Все в сборе! 











































































































ОеІрНі в примерах, играх и программах 


А так - после запуска приложения (Рис. 5.25). 



Рис. 5.25. Попрошу к шарам! 

Как видите, есть несколько компонентов, ещё не охваченных нашим 
вниманием. 

Но сейчас у нас есть дела поважнее - мы напишем класс поля ТРоІе, для 
которого добавим к проекту новый модуль - Роіеііпіі. Это разумно, так как 
код достаточно длинный и лучше отделить его от основного текста 
программы. Тем более что этот модуль с небольшими изменениями можно 
будет использовать и в других проектах. 

Введём константы. 


сопзб 

//макс, размеры поля: 

МАХ_ИІОТН=12; 

МАХ_НЕІСНТ=12; 

//константы лабиринта: 

















































































С0= -1; // - проходимая клетка 

8Т0Р= -2; // - непроходимая клетка 

ВЕС СЕЫі= 0; // - начальная клетка пути 


И новые типы данных: 


■Ьуре 

//цвет шариков: 

ТВа11Со1ог= (ЬсЫопе, ЬсКесі, ЬсСгееп, ЪсѴіаСег, ЪсВгоѵт, ЬсВІие, 
ЬсЪіІа, ЬсУеІІоѵ) ; 

//цвет клетки поля: 

ТСе11Со1ог= (ссСгау, ссСгееп, ссКесі) ; 

//клетка поля: 

ТСе11= Кесогсі 

//цвет шарика в клетке: 

ВаІІСоІог: ТВаІІСоІог; 

//цвет клетки: 

СеІІСоІог: ТСеІІСоІог; 

//новый шарик: 

Ыеѵ: Ьооіеап; 
епсі; 

//массив поля: 

ТЕіе1сі= аггау [0 . .МАХ_ИІВТН, 0 . .МАХ_НЕІСНТ] оЕ іпЕедег; 


Здесь всё настолько прозрачно, что любые комментарии излишни! 
Сам класс поля мы разберём подробно: 


//Поле: 

ТРо1е= сіазз 

//ширина поля в клетках: 

ДОісИ:]і: іп1:едег; 

//высота поля в клетках: 

НеідЫ:: іп1:едег; 

//координаты выделенного шарика: 

ЗеІВаІІ: ТРоіпВ; 

//массив клеток: 

Сеіі : аггау[0. .МАХ_ИІВТН, 0. .МАХ_НЕІСНТ] оЕ ТСеІІ; 
//массив для поиска пути: 
тазРаЕП: ТЕіеІсі; 

РаЕЬ: аггау[0. .МАХ_ИІВТН*МАХ_НЕІСНТ] оЕ ТРоіпЕ; 

//следующие шарики: 

ЫехЕВаІІз: аггау[1..12] оЕ ТВаІІСоІог; 

//создать поле: 
сопзЕгисЕог СгеаЕе; 

//инициализация поля: 
ргосесіиге ІпіЕ; 

//очистить поле: 
ргосесіиге Сіеаг; 

//щелчок на поле: 








ргосесіиге С1іск(Х, У: іпбедег); 

// инициализация первых шариков : 
ргосесіиге ІпібЕігзбВаІІз; 

//снять выделение с шарика: 
ргосесіиге ВеАсбіѵабеВаІІ; 
ргосесіиге Апітабіоп; 

//начать новую игру: 
ргосесіиге ЗбагбСате; 

//появление шариков на поле: 
ргосесіиге СгеабеВаІІз; 

//загадать следующие шарики: 
ргосесіиге ІпібЫехбВаІІз; 

//показать следующие шарики в табло: 
ргосесіиге ЗбюмЫехбВаІІз; 

ргобесбесі 

ргіѵабе 

//минимальная длина цепочки: 

ЬепЬіпез: іпбедег; 

//минимальный размер блока: 

ЬепВІоскз: іпбедег; 

//задержка при уничтожении цепочки: 
ВеіауОезбгоу: іпбедег; 

//задержка при возникновении шарика: 
ОеіауСгеабе: іпбедег; 

//задержка при движении шарика: 

БеІауМоѵе: іпбедег; 

// переместить шарик : 
ргосесіиге БоНосЦХ, У: Іпбедег); 
ргосесіиге ОоМоѵеВаІІ (X, У: Іпбедег); 
//выделить шарик: 

ргосесіиге АсбіѵабеВаІІ(X, У: Іпбедег); 
//найти путь: 

бипсбіоп ЕіпсіРабб (ЕпсіСеІІ: ТРоіпб): Ьооіеап; 
//проложить путь: 

ргосесіиге СгеабеРабб (ЕпсіСеІІ: ТРоіпб) ; 

//уничтожить фигуру: 
бипсбіоп РеІебеЕідз: іпбедег; 

// подпрыгивающий шарик : 
ргосесіиге .ІитрВаІІ; 

//игра закончена: 
ргосесіиге СатеОѵег; 
ргосесіиге СатеЭДіп; 
епсі; 


Прежде всего, нужно создать поле; это делается при старте программы в 
процедуре ТРогтІ.РогтСгеаіе-. 


//создать поле: 
Ро1е:= 1:Ро1е. Сгеа1:е; 






При создании экземпляра класса мы задаём параметры игры по 
умолчанию: 


/////////////////////////////////////////////////////////// 
//////////////////////// ПОЛЕ ///////////////////////////// 
/////////////////////////////////////////////////////////// 

сопз-ЬгисЬог ЬРоІе .СгеаЬе; 

Ьедіп 

іпЬегіЬесі сгеаЬе; 

//установить значения по умолчанию: 

ЪепЪіпез:= 5; 

ЪепВ1оскз:= 6; 

ГеІауГезЬгоу := 150; 

ОеІауСгеаЬе := 80; 

Ое1ауМоѵе:= 40; 
епсі; 


А именно: необходимая длина линий - 5 шариков, минимальное число 
шариков в блоке - 6; остальные переменные используются при анимации. 
После создания поля в процедуре ТРогтІ.РогтАсЬіѵаіе запускается новая 
игра: 


//ПОДГОТОВИТЬСЯ К ИГРЕ 

ргосесіиге ТРогхпІ . ЕогтАс'Ьіѵа'Ье (Зепсіег : ТОЬзесЬ) ; 
Ьедіп 

Ргераге; 
сіеіау (1000) ; 

Роіе.ЗЬагЬСате; 
епсі; 


То же самое происходит и при нажатии на кнопку Новая игра : 


//НОВАЯ ИГРА 

ргосесіиге ТРогшІ. ЫеѵЮате; 

Ьедіп 

//подготовить сетку: 
Ргераге; 

//начать игру: 

Роіе.ЗЬагЬСате; 
епсі; 


Старт новой игры - событие нетривиальное: здесь нужно всё всесторонне 
обдумать : 


//ВЫВЕСТИ ПЕРВЫЕ ШАРИКИ 

ргосесіиге ТРоІе. ЗЬагЬСате; 

Ьедіп 

//очистить поле: 

Сіеаг; 










//показать следующие шарики в табло: 
ІпібЫехбВаІІз ; 

ЗбоѵЫехбВаІІз ; 

//разместить первые шарики в массиве: 
ІпібГігзбВаІІз ; 

//показать шарики на поле: 

СгеабеВаІІз ; 

//оставшиеся ходы: 
бопиз:= бТопиз.Сгеабе; 
бопиз. СебѴаІие ; 
бопиз. ЗбомѴаІие; 

//число ходов: 

Носі:= бНосі. Сгеабе; 

Носі . ЗЬоѵѴаІие ; 

//очки: 

Зсоге. іпіб; 

Зсоге. ЗбомѴаІие; 

//инициализация поля: 

Іпіб; 

//снять выделение: 

ОеАсбіѵабеВаІІ ; 

зоипсі ( 1 пеѵдаше 1 ) ; 
зіеер (1500); 

арріісабіоп.РгосеззМеззадез; 
епсі; 


Поскольку игровое поле представлено у нас и сеткой сІдРоІе на форме, и 
массивом клеток Се//; аггау[О..МАХ_\ѴЮТН, О..МАХ_НЕІСНТ] о/ ТСеІІ;, то в 
массиве нужно убрать все шарики с поля, присвоив переменным 
Ро1е.Се11[].ВаПСоІог значение Ьс/Ѵопе, что и означает отсутствие шариков в 
соответствующих клетках, а во все клетки сетки мы должны вывести 
картинку, изображающую пустую клетку: 


//ОЧИСТИТЬ ПОЛЕ 

ргосесіиге ТРоІе . Сіеаг ; 

ѵаг 

і, ^ : іпРедег; 
сіг: ТКЕСТ; 

Ьедіп 

міРЪ. Рогті, сІдРоІе сіо 

Рог ^: = 0 Ро КомСоипР сіо 

Рог і:= 0 Ро СоІСоипР сіо Ьедіп 

Ро1е.Се11[і, ]].ВаІІСоІог:= ЪсРГопе; 

Ьг:= Се11РесР(і, ^); 

ітІРіс . Ргам (Сапѵаз, Ьг.ІеРР, Ьг.Рор, 0); 






ОеІрНі в примерах, играх и программах 


епсі; 

епсі; 


Ну, если с массивом всё ясно, то манипуляции с полем ещё требуют 
пояснений. 

Картинки с клетками поля во всех состояниях хранятся в компоненте 
ітІРіс: Тітадеіізі (Рис. 5.26]. Их огромное количество, что объясняется 
анимацией. 



Рис. 5.26. Шарики в списке картинок 

Все они имеют размеры 32 х 32 пикселя, чтобы точно соответствовать 
клеткам поля. Конечно, требуется некоторая графическая сноровка, чтобы 
их нарисовать (Рис. 5.27]. 



Рис. 5.27. Кадры анимации шариков 



























































Лично я пользовался векторным редактором СогеЮРАУѴ, чего, как 
говорится, и вам желаю. 

Когда картинки уже загружены в ітІРіс, то вы вести их в нужную клетку 
поля не представляет ни малейшего труда: 


сіг:= СеИРесЬ (і, ^) ; 

ітІРіс . Бгаѵ (Сапѵаз , сІг.Іеі'Ь, сІг.Цор, 0); 


Так как в компоненте ТИгамСгМ картинки «не держатся», то их 
необходимо постоянно перерисовывать при изменении ситуации на поле: 


//ОТРИСОВАТЬ СЕТКУ 

ргосесіиге ТРогшІ . сідРоІеБгаѵСеІІ (Зепсіег: ТОЪ^есВ; АСоі, АРоѵ: 
Іпіедег; 

РесВ: ТРесВ; ЗВаВе: ТСгісШгаѵЗВаВе) ; 
ѵаг 

г, сіг: ТРЕСТ; 
іпсіех: іпВедег; 

Ьедіп 

//размеры картинок: 

сіг:= Воипсіз (РесВ. ЪеВВ, РесВ. Тор, «Сеіі, ЬСеіі) ; 

//картинка с шариком в ячейке: 

іпсіех:= (огсі (Роіе . Сеіі [АСоі, АРоѵ].ВаІІСоІог)); 

ІВ іпсіех> 0 ВВеп //-в клетке есть шарик 
іпсіех: = (іпсіех-1)* регіосі + 3 
еізе //- пустая клетка 

іпсіех: = (огсі (Роіе . Сеіі [АСоі, АРои].СеІІСоІог))* регіосі; 
//скопировать картинку из списка в ячейку: 
ітІРіс . Огаѵ (сідРоІе . Сапѵаз, сіг.ІеВВ, сіг. Сор, іпсіех); 
епсі; 


Константа РЕКІОР равна числу картинок при анимации шарика: 


сопзВ 

//число картинок на шарик одного цвета: 

РЕКІОБ= 10; 


При инициализации поля в процедуре іРоІе.Іпіі все клетки поля (не 
шарики!) окрашиваются в серый цвет, который они сохраняют, пока ни 
один шарик на поле не выделен: 


//ИНИЦИАЛИЗАЦИЯ 

ргосесіиге ВРоІе . ІпіВ ; 

ѵаг і, ^ : іпЬедег; 

Ьедіп 

//все клетки - серые: 
іог ^:= 0 Ьо НеідЬЬ сіо 
іог і:= 0 Ьо ЭДісіЫі сіо 










Сеіі [ і, :і ] . СеІІСоІог : = ссСгау; 

//нет выделенного шарика: 
5е1Ва11:= РоіпЬ (-1,-1); 
епсі; 


В переменной ВеІВаІІ хранятся координаты того шарика, на котором игрок 
кликнул. Так как координаты поля начинаются с нуля, то отрицательные 
значения говорят о том, что выделенного шарика на поле нет. 

Затем в процедуре ВіагіСате заполняется массив ЫехіВаШ, в котором 
хранятся шарики, которые появятся на поле после первого хода игрока: 


//ИНИЦИАЛИЗАЦИЯ СЛЕДУЮЩИХ ШАРИКОВ 

ргосесіиге ТРоІе . ІпіЬНех'ЬВаІІз ; 

ѵаг 

і: іпЬедег; 

Ьедіп 

Вапсіотіге; 

Ьог і:= 1 Со ЫитВаііз.пРоЬот сіо Ьедіп 

ИехЬВаІІз [ і ] : = ТВаІІСоІог (огсі (гапсіот (ИитВаІІз . пСоІог) +1) ) ; 
епсі 
епсі; 


Также их нужно показать в сетке сІдЫехСВаШ, которая расположена справа 
от игрового поля: 


//ПОКАЗАТЬ СЛЕДУЮЩИЕ ШАРИКИ В ТАБЛО 

ргосесіиге ТРоІе . ЗІюѵИех-ЬВаІІз; 

ѵаг 

і: іпЬедег; 
сіг: ТРЕСТ; 
іпсіех: іпЬедег; 

Ьедіп 

Тог і:= 1 Ьо ЫитВаІІз. пРоЬот сіо Ьедіп 
іпсіех:= (огсі (ЫехЬВаІІз [і] )-1) * регіосі; 

сіг:= Ьогті. ЬдИехЬВаНз . СеІІВесЬ (0, і-1) ; 

Ьогті. ітІРіс . Бгаѵ (Ьогті. ЬдИехЬВаНз . Сапѵаз, сіг.ІеЬЬ, Ьг.Ьор, 
іпсіех+3) ; 

епсі; 

епсі; 


Процедура отрисовки клеток этой сетки: 


/////////////////////////////////////////////////////////// 
///////////////////// СЕТКА-ТАБЛО ///////////////////////// 
/////////////////////////////////////////////////////////// 

ргосесіиге ТРогшІ.сідЫех-ЬВаІІзБгаотСеІІ (Зепсіег : ТО^есЬ; АСоІ, АКом: 
ІпЬедег; 










КесЕ: ТВесЕ; ЗЕаЕе: ТСгісШгамЗЕаЕе) ; 
ѵаг 

сіг : ТКЕСТ; 
іпсіех: іпЕедег; 

Ьедіп 

сіг : = ЬдЬехЕВаНз . СеІІВесЕ (0, АВош) ; 

//стереть ячейки без шариков: 
іЕ АВом+1 > ЬитВаІІз.пРоЕот ЕЬеп Ьедіп 
ЬдЬехЕВаНз . Сапѵаз . ВгизЬ . Соіог : = Еоп; 

ЬдЬехЕВаНз . Сапѵаз . ЕіІІВесЕ (ЬдЬехЕВаНз . СеІІВесЕ (АСоІ, АВом) ) 
епсі 

еізе Ьедіп 

//вывести шарик в ячейке: 

іпс!ех:= (огЬ. (Роіе .ЬехЕВаІІз [АВом+1] )-1) * регіосі; 

ішіРіс . Вгаѵг (ЬдЬехЕВаНз . Сапѵаз, Ьг.ІеЕЕ, Ьг.Еор, іпс1ех+3) ; 
епсі; 
епсі; 


Каждый программист должен предусмотреть в программе уловки, 
помогающие в игре. Мы сделаем так: 


//ХИТРЫЙ ПРИЁМ 

ргосесіиге ТРогшІ . сЛдЫехЕВаИзМоизеБсжп (Зепсіег : ТОЬ] есЕ; 

ВиЕЕоп: ТМоизеВиЕЕоп; 8ЫЕЕ: ТЗЫЕЕЗЕаЕе; X, У: ІпЕедег); 
ѵаг 

АСоІ, АВом: іпЕедег; 

Ьедіп 

//координаты клетки : 

ЬдЫехЕВаНз .МоизеТоСеІІ (X, У, АСоІ, АВом) ; 

//если нажать кнопку мыши на первом шарике , 

//то все след, шарики заменятся на новые: 
іЕ АВом= 0 ЕЬеп Ьедіп 

//показать следующие шарики в табло: 

Роіе.ІпіЕЫехЕВаІІз; 

Роіе.ЗЬомЫехЕВаІІз; 
епсі 

//если нажать кнопку мыши на втором шарике, 

//то поле очистится: 
еізе ІЕ АВом= 1 ЕЬеп Ьедіп 
Роіе.Сіеаг; 

//снять выделение : 

Роіе.ОеАсЕіѵаЕеВаІІ; 

//показать следующие шарики в табло: 

Роіе.ІпіЕЫехЕВаІІз; 

Роіе.ЗЬомЫехЕВаІІз; 

//разместить первые шарики в массиве: 

Роіе.ІпіЕЕігзЕВаІІз; 

//появление шариков на поле с бульканием: 

Роіе.СгеаЕеВаІІз; 

//осталось ходов: 

Еопиз := ЕТопиз .СгеаЕе; 






Ропиз. СеРѴаіие ; 
Ропиз .ЗЬоиѴаІие; 
епсі; 
епсі; 


То есть: нажимая первый (верхний) шарик в сетке-табло, мы получаем 
новый набор следующих шариков и можем выбрать нужную нам 
комбинацию. Следующий приём ещё более радикальный. Нажав второй 
шарик, мы полностью очистим поле, сохранив при этом все свои честно 
заработанные очки! 

Немного нелогично, но после следующих шариков, мы заполняем массив 
Сеіі текущих шариков (тех, что сразу появляются на поле): 


//ИНИЦИАЛИЗАЦИЯ ПЕРВЫХ ШАРИКОВ 

ргосесіиге ТРоІе . ІпіРРігзРВаІІз ; 

ѵаг 

і, 3 , п: іпРедег; 

Ьедіп 

//разместить первые шарики в массиве: 

п : = 0 ; 

гереаР 

і:= гапсіот (ѴіісіРЬ) ; 

3 : = гапсіот (НеідЬР) ; 

іР Се11[і, 3 ].Ва11Со1ог= ЬсИопе РЬеп Ьедіп 

//поместить в пустую клетку шарик случайного цвета: 
Се11[і, з]. ВаІІСоІог := 

ТВаІІСоІог (огсі (гапсіот (ЫитВаІІз . пСоІог) +1) ) ; 

Се11[і, з].пеи:= Ьгие; 
іпс(п) 
епсі; 

ипріі п= ЫитВаІІз.пЗгаги; 
епсі; 


Для этого мы выбираем случайную клетку поля и, если она пустая, то 
помещаем в неё шарик опять же случайного цвета (из возможных), а также 
указываем, что шарик «новый»: 


Се11[і, з].пезд:= Ьгие; 


В следующей процедуре: 


//ПОЯВЛЕНИЕ ШАРИКОВ: 

ргосесіиге ТРоІе . СгеаЬеВаІІз ; 

ѵаг 

і, з, іпсіех: іпЬедег; 
сіг: ТРЕСТ; 

Ьедіп 

Рог 3 := 0 Ро НеідЬР-1 сіо 










іог і:= 0 Ьо Ѵ^ісі'Ыі—1 Ьо Ьедіп 

сіг:= іогті.ЬдРоІе.СеІІКесЬ(і, 3 ); 

іпсіех:= (огсі (Роіе . Сеіі [і, 3 ] .ВаІІСоІог)-1) * регіосі; 

іі Се11[і, 3 ] . пеи= Вше ЬЬеп Ьедіп 
Се11[і, з].пеи:= іаізе; 

іогті. ітІРіс . Ргаи (іогті. сідРоІе . Сапѵаз, Ьг.ІеіЬ, Ьг.Ьор, 
іпсіех+ 1 ) ; 

Беіау(БеІауСгеаЬе); 

іогті. ітІРіс . Ргаи (іогті. сідРоІе . Сапѵаз, Ьг.ІеіЬ, Ьг.Ьор, 
іпсІех+ 2 ); 

Беіау(БеІауСгеаЬе); 

Зоипсі ( ' Ьиіз к'); 

іогті. ітІРіс . Ргам (іогті. сідРоІе . Сапѵаз, сіг.ІеЫ:, сіг.Ьор, 
іп<Дех+ 3); 

епЬ; 

епсі; 

епЬ; 


мы просматриваем всё поле и, найдя «новый» шарик, выводим его на поле 
с анимацией и звуковым эффектом. 

Здесь нам протребуются две простенькие процедуры. Первая издаёт звуки 
(файлы хранятся в папке ѴѴАѴ)\ 


//ВОСПРОИЗВЕСТИ ЗВУК 

ргосесіиге 5оип<і(пате: РСЬаг) ; 

ѵаг з: РСЬаг; 

Ьедіп 

іі іогті . зЬЬЗоипсі . сіоѵт= Ьгие ЬЬеп Ьедіп 
//сформировать имя файла: 
з:= РСЬаг(' ѵаѵ\ '+ пате + 1 . иаѵ ') ; 
зпсіРІауЗоипсі (з, ЗЫО_АЗУЫС ог 5Ы0_ЕІЪЕЫАМЕ) ; 
епсі; 
епсі; 


Тут следует заметить, что булькающие звуки, сопровождающие появление 
шариков на свет божий, могут и раздражать игрока, поэтому добавим на 




(НіпІ=Звук вкл-откл А11оѵѵА1Шр=Тгие 


форму кнопку зЪіЗоипсІ 
Оолѵп=Тгие СгоирІпсіех=1). Она действует как переключатель. Когда 
кнопка находится в нажатом положении (по умолчанию это так и есть, то 
есть мы надеемся, что игроку приятен наш выбор звуков], звук 
воспроизводится, когда в отжатом - нет. Всё демократично... 


Так как шарики возникают в сетке излишне резво, то все фазы их 
рождения разделены паузой: 


//ЗАДЕРЖКА 

ргосесіиге Беіау (МЗесз : ЬопдіпЬ) ; 









ѵаг 

ЕігзкТіскСоипІ:, Ыом: Ьопдіпк; 

Ьедіп 

ЕігзкТіскСоипІ: := СекТіскСоипк; 
гереак 

Арріісакіоп.РгосеззМеззадез; 

Ыом := СекТіскСоипк; 

ипкіі (Ыом - ЕігзкТіскСоипк >= МЗесз) ог (N 0 ^ < ЕігзкТіскСоипк); 
епсі; 


При создании поля устанавливается такая задержка: 


БеІауСгеаРе: = 80; 


Вы можете изменить её в полном соответствии со своим темпераментом... 

Идём дальше. В каждой игре важна статистика, без которой играть 
неинтересно! В нашей игре - это количество оставшихся у нас ходов: 


//оставшиеся ходы: 
Ропиз:= РТопиз.СгеаРе; 
Ропиз . СеРѴаІие; 

Ропиз. ЗРюмѴаІие; 


Число уже сделанных ходов: 


//число ходов: 
Носі:= РНосІ. СгеаРе; 
Носі . ЗРюмѴаІие ; 


Набранные очки: 


//очки: 

Зсоге. іпір; 

Зсоге. ЗЬоѵѴаІие; 


Заведём для статистики ещё три класса: іТопиз, Шод и іЗсоге в главном 
модуле программы. Затем объявим соответствующие переменные: 


ѵаг 

//игровой тонус: 
Топиз: РТопиз; 
//число ходов: 
Носі: РНоб; 
//набранные очки: 
Зсоге: РЗсоге; 


Рассмотрим все классы по очереди. Игровой «тонус» : 














ОеІрНі в примерах, играх и программах 


//игровой тонус: 

Ьуре ЬТопиз= сіазз 

//число оставшихся ходов: 
ѵаіие : іпЬедег; 

//число пустых клеток на поле: 

ЕтрЬуСеІІ: іпЬедег; 

//есть ли на поле шарики? 

ЕтрЬуРоІе: Ьооіеап; 

//есть ли на поле хотя бы одна свободная клетка? 
ЕиІІРоІе: Ьооіеап; 
сопзЬгисЬог СгеаЬе; 

//показать: 
ргосесіиге ЗЬоиѴаІие; 

//получить значение тонуса: 
ргосебиге СеЬѴаІие; 

епб; 


Здесь нас в, первую очередь, может интересовать, сколько ходов мы 
сможем ещё продержаться - ѵаіие. Определить их число можно так: 
подсчитаем оставшиеся пустые клетки ЕтріуСеІІ и разделим их на число 
шариков, появляющихся после каждого хода - А ІитВаІІБ.пРоіот. Значение 
«тонуса» выводим для всеобщего обозрения в метку ІЫТопиз (Рис. 5.28). 



Рис. 5.28. Тонус отсутствует! 


В компонент ТІтаде мы загружаем картинку с подходящей надписью (все 
картинки находятся в папке ітаде ). 


/////////////////////////////////////////////////////////// 
/////////////////// ИГРОВОЙ ТОНУС //////////////////////// 
/////////////////////////////////////////////////////////// 

сопзЬгисЬог ЬТопиз.СгеаЬе; 

Ьедіп 

іпЬегіЬесі; 
ѵаіие := 0; 
епсі; 

//ВЫЧИСЛИТЬ КОЛИЧЕСТВО ОСТАВШИХСЯ ХОДОВ 

ргосесіиге ЬТопиз. СеЬѴаІие; 

ѵаг 

і, ^: іпЬедег; 

Ьедіп 





























//подсчитать число пустых клеток на поле: 

ЕтрЕуСе11:= 0; 

Еог і:= 0 Ео Роіе . НеідЬЕ-1 сіо 
Еог і:= 0 Ео Роіе .МісІСЬ-1 сіо 

іЕ Ро1е.Се11[і, ;і ] . Ва11Со1ог= ЬсЫопе ЕЬеп іпс(ЕтрЕуСеІІ) ; 
//число оставшихся ходов: 
ѵа1ие:= ЕтрЕуСеІІ сііѵ ЫитВаІІз. пРоЕот; 

//проверить, не пусто ли поле: 

ІЕ ЕтрЕуСеІІ = РоІе.НеідЬЕ * Роіе. МісІСЬ ЕЬеп 
ЕтрЕуРо1е:= Егие 
еізе 

ЕтрЕуРо1е:= Еаізе; 

//проверить, есть ли на поле свободные клетки: 
іЕ ЕтрЕуСеІІ = 0 ЕЬеп 
Еи11Ро1е:= Егие 
еізе 

Еи11Ро1е:= Еаізе; 

епсі; 

//ВЫВЕСТИ ЗНАЧЕНИЕ ТОНУСА НА ЭКРАН 

ргосесіиге ЕТопиз . ЗЪоѵѴаІие; 

Ьедіп 

Еогті. ІЫТопиз . СарЕіоп : = іпЕЕозЕг (ѵаіие) ; 

Еогті. ІЫТопиз . ІпѵаІісіаСе; 
аррІісаЕіоп.РгосеззМеззадез 
епсі; 


Во всех играх важно знать число сделанных ходов: 


//ходы: 

Еуре ЕНосі= сіазз 

//число сделанных ходов: 
ѵаіие: іпЕедег; 
сопзЕгисЕог СгеаЕе; 

//показать: 
ргосесіиге ЗНоиѴаІие; 
епсі; 


Здесь всё просто: 


/////////////////////////////////////////////////////////// 
//////////////////////// ходы ///////////////////////////// 
/////////////////////////////////////////////////////////// 

сопзЕгисЕог ЕНосі. СгеаЕе ; 

Ьедіп 

іпЬегіЕесі; 
ѵаіие:= 0; 
епсі; 

//ВЫВЕСТИ ЗНАЧЕНИЕ НА ЭКРАН 

ргосесіиге ЕНосі. ЗЬоѵ/ѴаІие; 








Ьедіп 

богті. ІЫНосі. Сарбіоп : = іпббозбг (ѵаіие) ; 
богті. ІЫНосі. Іпѵаіісіабе; 
арріісабіоп.РгосеззМеззадез 
епсі; 


Число ходов мы показываем в метке ІЫНосі (Рис. 5.29). 



Рис. 5.29. Пора ходить! 

Ещё более важно знать набранные очки, чтобы установить рекорд : 


//очки: 

буре б5соге= сіазз 
//набранные очки: 
ѵаіие: іпбедег; 

//рекорд: 

Кес: іпбедег; 
сопзбгисбог Сгеабе; 
ргосесіиге Іпіб; 

//показать: 
ргосесіиге ЗЬоѵѴаІие; 
//установить новое значение: 
ргосесіиге ЗебѴа1ие(п: іпбедег); 
//запомнить новый рекорд: 
ргосесіиге ЗебКес; 
епсі; 


/////////////////////////////////////////////////////////// 
//////////////////////// ОЧКИ ///////////////////////////// 
/////////////////////////////////////////////////////////// 

сопзбгисбог бЗсоге.Сгеабе; 

Ьедіп 

іпЬегібесі; 

епсі; 

//ИНИЦИАЛИЗАЦИЯ 

ргосесіиге бЗсоге . Іпіб ; 

Ьедіп 

ѵаіие:= 0; 
епсі; 

//ПОДСЧИТАТЬ НАБРАННЫЕ ОЧКИ 

ргосесіиге бЗсоге.ЗебѴаІие(п: іпбедег); 


























Ьедіп 

ІЬ п> 0 ЬЬеп 

ІЬ ТуреЕід= ЬЬЬіпез ЬЬеп 
ѵа 1 ие:= ѵаіие + 5 *п - 20 
еізе 

ѵа 1 ие:= ѵаіие + б*п - 26 

епсі; 

//ВЫВЕСТИ ОЧКИ НА ЭКРАН 

ргосесіиге ЬЗсоге . ЗЬоѵѴаІие ; 

Ьедіп 

ѵіЬЬ Ьогті сіо Ьедіп 

ІЫЗсоге. СарЬіоп := іпЬЬозЬг (ѵаіие) ; 
ІЫЗсоге. ІпѵаІісіаЬе; 

ІЫКесогсі. СарЬіоп : = ІпЬЬозЬг (гес) ; 
ІЫКесогсі. ІпѵаІісіаЬе; 
епсі; 

арріісаЬіоп.РгосеззМеззадез 
епсі; 

//РЕКОРДНЫЕ ОЧКИ 

ргосесіиге ЬЗсоге . ЗеЬКес; 

Ьедіп 

іі ѵаіие> гес ЬЬеп 
гес:= ѵаіие; 
зЬоѵѴаІие; 
епсі; 


Набранные очки и рекорд мы печатаем в метках ІЫЗсоге и ІЫКесогсі, 
соответственно (Рис. 5.30). 
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Рис. 5.30. Текущие очки и рекорд 

В игре, конечно, очень важен подсчёт набранных очков. Я остановился на 
таких формулах: 


//ПОДСЧИТАТЬ НАБРАННЫЕ ОЧКИ 

ргосесіиге ЬЗсоге . ЗеЬѴаІие (п: іпЬедег) ; 

Ьедіп 

іЬ п> 0 ЬЬеп 

іі ТуреЕід= ЬЬЬіпез ЬЬеп 
ѵа1ие:= ѵаіие + 5*п - 20 
еізе 

ѵаіие:= ѵаіие + 6*п - 26 

епсі; 










































Вы можете выбрать формулы по своему вкусу! 

И - нам осталось рассмотреть самый конец процедуры ТРоІе.5іагіСате\ 


//инициализация поля: 

I п і Д ; 

//снять выделение: 
ОеАсДіѵаДеВаІІ ; 

зоипсі ( 1 пемдате 1 ) ; 
зіеер (1500); 

аррІісаДіоп . РгосеззМеззадез; 


Процедура Іпіі нам уже известна, а процедура ОеАсііѵаіеВаІІ просто снимает 
выделение с шарика: 


//СНЯТЬ ВЫДЕЛЕНИЕ С ШАРИКА 

ргосесіиге ДРоІе . БеАсЬіѵа'ЬеВаІІ ; 

ѵаг 

і, з: іпДедег; 

Ьедіп 

5е1Ва11:= РоіпД(-1,-1); 
//остановить таймер: 

Догті.Дітег2.ІпДегѵаІ:= 1; 

Догті. Дітег2 . ЕпаЫесі: = Даізе; 

//все клетки - серые: 

Дог 3 : = 0 До НеідЛД-1 сіо 
Дог і:= 0 До ИісіДДі-1 сіо 

Сеіі [ і ,з]. СеІІСоІог := ссСгау; 
Догті. ДдРоІе . ІпѵаІісіаДе; 
аррІісаДіоп.РгосеззМеззадез; 
епсі; 


Сейчас мы проясним ситуацию с шариками на поле до полной 
прозрачности. 

Мы находимся в положении, когда всё готово для новой игры: имеется 
поле заданных размеров, на нём находится некоторое количество 
шариков, нам известны следующие шарики, мы имеем всю информацию о 
ходе игры. Что должен сделать игрок дальше? - Конечно, выбрать какой- 
нибудь шарик на поле и указать место, на которое он должен 
переместиться! 

Итак, нажимаем кнопку мышки на клетке поля: 


//НАЖАТЬ КНОПКУ МЫШИ НА ПОЛЕ 

ргосесіиге ТРогшІ . сідРоІеМоизеБотеп (Зепсіег : ТОЬд есЬ; Ви-Ы:оп : ТМоизеВи-ЬВоп; 








5МГ1:: ТЗЫРРЗРаРе; X, У: ІпРедег); 
ѵаг 

АСоІ, АВом: ІпРедег; 

Ьедіп 

//координаты клетки: 

ЬдРоІе.МоизеТоСеІІ (X, X, АСоІ, АКош); 
РоІе.СІіск (АСоІ, АКом); 
епсі; 


Обработка этого события происходит в процедуре ЬРоІе.СІіск: 


//ЩЕЛЧОК НА ПОЛЕ 

ргосесіиге ЬРоІе . Сііск (X, У: іпЬедег ) ; 

//X, X - координаты клетки 
Ьедіп 

зоипсі ( ' сііск' ) ; 

//если кнопка нажата в клетке с шариком, выделить его: 
ІР Сеіі [X, У].Ва11Со1ог <> ЬсЫопе РЬеп 
АсРіѵаРеВаІІ(X, X) 

//если кнопка нажата в пустой клетке, то сделать ход: 
еізе 

РоНосІ (X, У) 

епсі; 


Здесь нужно проверить, есть ли шарик в этой клетке. Если есть, мы 
«активируем» (выделяем) его. Если же клетка пустая, то нужно 
выполнить ход. 

Рассмотрим первую процедуру - АсііѵаіеВаІІ(Х, У): 


//ВЫДЕЛИТЬ ШАРИК 

ргосесіиге ЬРоІе . АсЬіѵаЬеВаІІ (X, У: ІпЬедег) ; 

//X, У - координаты клетки с шариком 
ѵаг 

і, :І : ІпРедег; 

Ьедіп 

//если шарик повторно выделен: 

ІР (Х= ЗеіВаіі.х) апсі (У= ЗеіВаіі.у) РЬеп 
ОеАсРіѵаРеВаіІ 

//если выделен новый шарик - 
еізе Ьедіп 

//запомнить координаты шарика: 

ЗеіВаІІ:= РоіпР(X, У); 

//запустить прыжки шарика: 

ЛшірВаІІ; 

//выделить доступные клетки: 

ЕіпсІРаРЬ. (РоіпР (-1,-1) ) ; 

Рог ] := 0 іо ЬеідЬР-1 сіо 
Рог і:= 0 Ро місІРЬ-1 сіо 

//если в клетке число >0, то клетка доступна: 
ІР тазРаРЬ[і,^]> 0 РЬеп 

Се11[і,:П .Се11Со1ог:= ссСгееп 
//иначе - клетка недоступна: 
еізе 








Се11[і,Л .Се11Со1ог:= ссКесі; 
Рогті. сІдРоІе . ІпѵаІісІа'Ье; 
епсі; 
епсі; 


Поскольку на поле нужно кликать в двух клетках, то мы должны как-то 
отмечать кликнутый шарик, чтобы не потерять его из виду, делая второй 
клик. Сделать это можно по-разному. Я выбрал простую анимацию 
выделенного шарика - он прыгает (Рис. 5.31) в своей клетке (к 
сожалению, на статичной картинке этого не покажешь). 







Выделен шарик в третьей сверху строке 



Рис. 5.31. Ход сделан - выделенный шарик переместился в новую клетку 






































В игре бывает всякое: вы могли по ошибке кликнуть не тот шарик. Тогда 
кликните на нём ещё раз - и он станет обычным шариком: 


//если шарик повторно выделен: 
іР (Х= ЗеІВаІІ.х) апсі (У= ЗеІВаІІ.у) ЕЬеп 
ВеАсЕіѵаЕеВаІІ 


Если клик удачный, то мы запоминаем координаты клетки и заставляем 
шарик прыгать: 


//запомнить координаты шарика: 
ЗеІВаІІ := РоіпЕ (X, У) ; 

//запустить прыжки шарика: 
іІитрВаІІ ; 


Так как анимация - процесс весьма сложный, то заведём новый тип 
данных ТАпітаЬе : 


//анимация шариков: 

ТАпіта*Ье= Кесогсі 
//интервал: 

ІпЕегѵаІ : сагсііпаі; 

//координаты клетки поля: 
х, у: іпЕедег; 

//список индексов в списке: 
іпсіех: аггау [ 1. . 100] оР іпВедег; 

//текущий индекс в массиве: 
рВгІпсіех : іпВедег ; 

//число картинок в анимации: 

Егате: іпВедег; 

//имя файла звука: 
зоипсі: РСЬаг; 

//индекс для воспроизведения звука: 
Зоипсііпсіех : іпВедег ; 

//число повторений: 

Кер: іпВедег; 

//выполнено: 

Ехес: іпВедег; 
епсі; 


И соответствующую переменную: 


ѵаг 

//анимированная ячейка: 

АпітаѣеСеІІ : ТАпіта'Ье; 


После клика на шарике мы задаём параметры анимации: 


//ВЫДЕЛИТЬ ШАРИК 












ргосесіиге ЬРоІе. ДитрВаІІ; 

ѵаг і: іпЬедег; 

Ьедіп 

//запустить прыжки шарика: 

Апіта ЬеСеІІ. ІпЬегѵаІ: = 120; 

АпітаЬеСеіі.х:= ЗеІВаІІ.х; 

АпітаЬеСеіі.у:= ЗеІВаІІ.у; 

і:= (огсі (Сеіі [ ЗеІВаІІ. х, ЗеІВаІІ. у] . ВаІІСоІог)-1) * регіосі; 

АпітаЬеСеІІ. іпсіех [ 1 ] :=і + 4; 

АпітаЬеСеіі. іпсіех [ 2 ] :=і+3; 

АпітаЬеСеіі. іпсіех [ 3 ] :=і+5; 

АпітаЬеСеІІ. іпсіех [4 ] :=і + 3; 

АпітаЬеСеіі. рЬгІпсІех: = 1; 

АпітаЬеСеіі.Егате:= 4; 

АпітаЬеСеІІ. зоипсі: = 'зитрі 1 ; 

АпітаЬеСеіі. ЗоипсІІпсіех: = 4; 

АпітаЬеСеІІ.Кер:= 0; 

епсі; 


Анимация шарика реализована так. Через заданный интервал времени 
Іпіегѵаі в заданную клетку (х, у) последовательно выводятся картинки из 
компонента с картинками ітІРіс, который мы уже рассматривали. 
Наиболее естественно менять картинки с помощью компонента таймер 

ф 


Тітег2 


(ІпІегѵа1=1 ЕпаЫесІ=РаІ5е) 


Как только он будет запущен {/огт1.Ытег2.ЕпаЫесІ:= ігие;), вызывается 
процедура 


//ТАЙМЕР-АНИМАТОР : 

ргосесіиге ТРогшІ.Тішег2Тішег (Зепсіег : ТОЪ^есЬ); 
Ьедіп 

//запустить подпрыгивающий шарик: 

Роіе.АпітаЬіоп; 
епсі; 


А она, в свою очередь, через заданный промежуток времени вызывает 
процедуру ТРоІе.Апітаііоп: 


//ПОДПРЫГИВАЮЩИЙ ШАРИК 

ргосесіиге ТРоІе . АпітаЬіоп ; 

//х. у - координаты клетки поля; 

//іпсіех - номер картинки; 

ѵаг 

сіг: ТгесЬ; 

х,у, іпсіех: іпЬедег; 

Ьедіп 

//все повторения выполнены: 










ІЬ (АпітаЬеСеІІ.Кер<> 0) апсі (АпітаЬеСеІІ. Ехес= АпітаЬеСеІІ.Кер) 
Ыіеп 
Ьедіп 

Ьогті. Ьітег2 . ЕпаЫесі: = Ьаізе; 
ехіЬ; 
епсі; 

Ііогті. Ьітег2 . ІпЬегѵаІ: = АпітаЬеСеІІ. ІпЬегѵаІ; 
х:= Апіта'ЬеСеІІ.х; 
у:= АпітаЬеСеІІ.у; 

//квадрат клетки: 

сіг : = Ьогті. сідРоІе . СеІІКесЬ (х, у) ; 

//номер текущей картинки: 

іпсІех: = АпітаЬеСеІІ. Іпсіех [АпітаЬеСеІІ.рЬгІпсіех] ; 

//вывести текущую картинку: 

Ьогті. ітІРіс . Ргаи (Ьогті. сідРоІе . Сапѵаз, сіг.ІеЬЬ, Ыг.Ьор, Іпсіех); 

ІЬ (АпітаЬеСеІІ. зоипсіО ' ') апсі 

(АпітаЬеСеІІ. 5оипсіІпсіех= АпітаЬеСеІІ.рЬгІпсіех) 

Ыіеп 

Зоипсі (АпітаЬеСеІІ. зоипЫ) ; 
іпс (АпітаЬеСеІІ. рЬгІпсіех) ; 

ІЬ АпітаЬеСеІІ.рЬгІпсіех> АпітаЬеСеІІ. Ггате Ыіеп 
АпітаЬеСеІІ. рЬгІпсіех: = 1; 

ІЬ АпітаЬеСеІІ.гер<> 0 Ыіеп 
іпс(АпітаЬеСеІІ. ехес) ; 

епсі; 


Тут всё несколько заковыристо, но это свойство всех анимаций! 

Этим можно было бы и ограничиться, но давайте поможем игроку, ведь 
ему будет значительно легче ориентироваться на поле, если мы отметим 
клетки, в которые он может сделать ход (Рис. 5.32). 


//выделить доступные клетки: 

ГіпЫРаЫі (РоіпЬ (-1, -1) ) ; 

Ьог ^:= 0 Ьо ЬеідЬЬ-1 сіо 
Ьог і:= 0 Ьо иісіЫі-1 сіо 

//если в клетке число >0, то клетка доступна: 
ІЬ тазРаЫі [і, ^ ] > 0 Ыіеп 

Сеіі [і,^] .СеііСоіог:= ссСгееп 
//иначе - клетка недоступна: 
еізе 

Сеіі [і,Л .СеІІСоІог:= ссКеЫ; 







Рис. 5.32. Выделен красный шарик в 7-й строке Выделен жёлтый шарик в 4-й строке 

Эти рисунки показывают, как изменяется цвет клеток на поле после клика 
на шарике. Серые в нормальном состоянии клетки окрашиваются в 
зелёный - они доступные - и в красный - недоступные - цвет. Согласитесь, 
теперь выбрать нужный ход значительно проще! 

Как найти путь в лабиринте, мы уже разобрались в начале главы. Там же 
мы отмечали, что этот алгоритм позволяет и закрашивать замкнутые 
области. Для этого достаточно указать координаты конечной клетки так, 
чтобы она была заведомого за пределами поля: 


ЕіпсІРаЫі (РоіпЬ (-1, -1) ) ; 


Путь, естественно, функция ТРоІе.РіпйРаіИ путь не найдёт, но зато она 
отметит все клетки, доступные из начальной (в данном случае это клетка с 
выделенным шариком]. В массиве тазРаіЬ им соответствуют ненулевые 
значения: 


//НАЙТИ ПУТЬ МЕЖДУ ДВУМЯ КЛЕТКАМИ 

^ипсЬіоп ТРоІе . РіпсіРа'Ыі (ЕпсіСеІІ : ТРоіпЬ): Ьооіеап; 
ѵаг 

// список координат : 

СоогЬЫзЬ: аггау[1..МАХ_Ѵ\ГІОТН * МАХ_НЕІСНТ] оЬ ТРоіпЬ; 
//указатели в списке: 
рЬгІАГгіЬе, рЬгКеасі: іпЬедег; 
р, д: іпРедег; 
і, з: іпЬедег; 

//проверить координаты 

ТипсЬіоп ТезЬСоогсі (х, у: іпЬедег) : Ьооіеап; 





















Ьедіп 

Кези1Ь:= Ьгие; 

ІЬ (х<0) ог (х> ИісіЫі-1) ог (у<0) ог (у> НеідЬЬ-1)ог 
(шазРаЬЬ [х, у] О СО) ЬЬеп Кези1Ь:= Ьаізе; 
епсі; 

Ьедіп 

// формируем массив лабиринта: 

Ьог Л = 0 Ьо ііеідЬЬ-1 сіо 
Ьог і:= 0 Ьо иіЬЫі-1 сіо 

//если в клетке есть шарик, то клетка непроходима: 

ІЬ Сеіі[і,з].ВаІІСоІогО ЬсЪГопе Ыіеп 
шазРаЫі [і, Л : = 5Т0Р 
//иначе - клетка непроходима: 
еізе 

тазРаЫі [і, Л := СО; 

//заносим в список координаты начальной клетки: 

СоогсіЬізЬ [ 1 ] : = ЗеІВаІІ; 

//в начальную клетку в массиве СеІІРаЫі ставим ВЕС_СЕЪЪ= 0: 
шазРаЫі [ЗеІВаІІ.х,ЗеІВаІІ.у] := ВЕС_СЕЪЪ; 

//устанавливаем указатель для считывания координат на начало 
списка: 

рЬгКеасі: = 1; 

//устанавливаем указатель для записи новых координат на 
следующий индекс : 
рЬгѴ\ГгіЬе: = 2; 

//двигаемся от начала списка к его концу, пока он не кончится: 
ийііе рЬгКеасі < рЬгИгіЬе сіо Ьедіп 
//координаты текущей клетки: 

р:= СоогсіЪізЬ [рЬгКеаЬ] . х; д:= СоогсіЪізЬ [рЬгКеасі] . у; 
//проверяем соседние с ней клетки: 

Ьог і:= р - 1 Ьор + 1 сіо 
Ьог Л =< 3 _ 1'Ь° с і+1 с і 0 

//если нашли соседнюю проходимую клетку, 

ІЬ ( (і=р) ог Л=д) ) апЬ ТезЬСоогЬ (і, з ) ЬЪеп 
Ьедіп 

//то записываем в неё число, на единицу большее, 

//чем в текущей клетке: 
шазРаЫі [і, Л := шазРаЫі[р,д] + 1; 

//если дошли до конечной клетки, 

ІЬ (і= ЕпЫСеІІ.х) апсі (з = ЕпЫСеІІ.у) Ыіеп Ьедіп 
//то путь найден: 

Кези1Ь:= Тгие; 
ехіЬ; 
епЬ 

еізе Ьедіп 

//записываем координаты соседней клетки в конец 

списка: 

СоогсіЪізЬ [рЬгИгіЬе] := РоіпЬ (і, з ) ; 

//перемещаем указатель: 




іпс (рЬгѴігіЬе) ; 
епсі; 
епсі; 

//переходим к следующей клетке в списке: 
іпс (рЬгКеасі) ; 

епсі; 

//путь не найден: 

Кези1Ь:= Еаізе; 
епсі; 


После формирования массива таБРаІк нам достаточно просмотреть все 
клетки поля и окрасить их в соответствии со значением СеІІ[].СеІІСоІог. 

Итак, игрок выделил шарик, а затем указал клетку, в которую его следует 
переместить: 


//ПЕРЕМЕСТИТЬ ШАРИК 

ргосесіиге ЬРоІе . БоНосі (X, У: ІпЬедег) ; 

//X, У - координаты клетки 
ѵаг 

п, і, з: іпЬедег; 

Ьедіп 

//если шарик не был выделен, то перемещать нечего: 
іі (Зе1Ва11.х= -1) апсі (ЗеІВаІІ . у= -1) ЬЬеп Ьедіп 
Зоипсі ( ' сапЬтоѵе ' ) ; ехіЬ 
епсі; 

//найти путь в новую клетку - 

//если пути нет, то переместить шарик нельзя: 
іі поЬ ЕіпсіРаЫі (РоіпЬ (х, у) ) Ыіеп Ьедіп // - пути нет 
Зоипсі ( ' сапЬшоѵе ' ) ; ехіЬ 
епсі; 

//если путь найден - переместить шарик: 

ОоМоѵеВаіІ(х, у) ; 

//увеличить число сделанных ходов: 
іпс (Носі.ѵаіие) ; 

//и показать на экране: 

Носі. ЗЬомѴаіие; 

//если образовалась нужная фигура, уничтожить её: 
п:= ОеіеЬеЕідз; 

//вычислить и показать набранные очки: 

Зсоге .ЗеЬѴаіие(п); 

Зсоге .ЗЬоѵѴаІие; 

//вычислить и показать игровой тонус: 

Топиз .СеЬѴаІие; 






Топиз. ЗЬоиѴаіие; 

//если был сделан результативный ход и на поле есть шарики, 
//то ждать следующего хода: 

іЕ (п> 0) апсі (Топиз. ЕтрЕуРоіе= Еаізе) ЕЬеп ехіЕ; 

//вывести следующие шарики ЫехЕВаІІз - 

//если для новых шариков не осталось места, то игра проиграна: 
ІЕ Топиз. ЕтрЕуСеіі < ЕГитВаіІз .пРоЕот ЕЬеп Ьедіп 
СатеОѵег ; 
ехіЕ 
епсі; 

//если поле пустое - победа: 
іЕ Топиз.ЕтрЕуРоіе= Егие ЕЬеп Ьедіп 
СатеИіп; 
ехіЬ 
епсі; 

//найти место для новых шариков: 

п : = 0 ; 

гереаЬ 

і:= гапсіот (ІлГісІЕЬ) ; 

3 : = гапсіот (НеідЬЕ) ; 

ІЕ Се11[і, 3 ] .Ва11Со1ог= ЬсЕГопе ЕЬеп Ьедіп 

//поместить в пустую клетку «следующий» шарик: 

Се11[і, з]. ВаІІСоІог:= ЫехЕВаІІз[п+1]; 

Се11[і, з].пеѵ:= Егие; 
іпс(п) 
епсі; 

ипЕіІ п— ЫитВаІІз.пРоЕот; 

//появление шариков с бульканием: 

СгеаЕеВаІІз; 

//если образовалась нужная фигура, уничтожить её: 
п:= ОеІеЕеЕідз; 

//вычислить и показать набранные очки: 

Зсоге .ЗеЕѴаІие(п); 

Зсоге .ЗЬомѴаіие; 

//вычислить и показать игровой тонус: 

Топиз.СеЕѴаіие; 

Топиз.ЗЬоѵѴаІие; 

//показать следующие шарики: 

ІпіЕЫехЕВаІІз; 

ЗЬоиЫехЕВаіІз; 

//если поле пустое - победа: 

ІЕ Топиз.ЕтрЕуРо1е= Егие ЕЬеп Ьедіп 
СатеИіп; 




ехіЬ 

епЬ; 

//если ходов нет - поражение: 
іі Топиз . Еи11Ро1е= Ьгие Ыіеп Ьедіп 
СатеОѵег; 
ехіЬ 
епсі; 
епсі; 


Сначала мы должны учесть «несчастный случай», когда игрок кликнул на 
пустой клетке поля, не выделив шарик. Понятно, что ничего хорошего в 
этом случае делать не нужно: 


//если шарик не был выделен, то перемещать нечего: 
іі (5е1Ва11.х= -1) апсі (Зе1Ва11.у= -1) ЬЬеп Ьедіп 
Зоипсі ( ' сапЬтоѵе ' ) ; ехіЬ 
епсі; 


Если игрок действует правильно, то мы ищем путь из начальной клетки в 
конечную: 


//если пути нет, то переместить шарик нельзя: 
іі поЬ ЕіпсіРаЫі (РоіпЬ (х, у) ) ЬЬеп Ьедіп // - пути нет 
Зоипсі ( ' сапЬшоѵе ' ) ; ехіЬ 
епсі; 


Хоть мы и позаботились о раскрашивании клеток поля в разные цвета, 
игрок может оказаться невнимательным и указать недоступную клетку. 
Если же путь найден, мы перемещаем шарик: 


//если путь найден - переместить шарик: 
ОоМоѵеВаІІ (х, у) ; 


Занятие это не из простых: 


//ПЕРЕМЕСТИТЬ ШАРИК 

ргосесіиге ЬРоІе . БоМоѵеВаІІ (X, У: ІпЬедег) ; 

//X, У - координаты клетки 
ѵаг 

сіг : ТКЕСТ; 

іпсіех, і,^: іпЬедег; 

Ьс: ТВаІІСоІог; 
р, д: іпЬедег; 

Ьедіп 

//убрать выделение с клеток: 
ОеасЬіѵаЬеВаІІ; 

//создать путь: 

СгеаЬеРаЬЬ(РоіпЬ(х, у)); 












//переместить шарик из начальной клетки в конечную: 
іі іогті . зЪЬРаЫі . с1омп= Ьгие Ыіеп 
іог і:= 0 Ьо тазРаЫі[х, у]-1 сіо 
Ьедіп 

//координаты очередной клетки: 
р:= раідід [ і ] .х; д: = раідід [ і ] .у; 

//переместить шарик из очередной клетки в следующую - 
//цвет шарика: 

Ъс:= Сеіі [р, д]. ВаІІСоІог ; 

//очередная клетка становится пустой и серой: 

Сеіі [р, д]. ВаІІСоІог := ЬсЫопе; 

//исчезновение шарика: 

сіг:= іогті . сідРоІе . СеІІКесЬ (р, д) ; 

іпсІех: = (огсЦЪс)-І) * регіосі; 

Іогті. ітІРіс . Бгаѵ (Іогті. сідРоІе . Сапѵаз, сіг.ІеІС, сіг.Ьор, 
іпсіех+ 2 ) ; 

зіеер(БеІауМоѵе); 

Іогті. ітІРіс . Ргаѵ (Іогті. сідРоІе . Сапѵаз, сіг.ІеІС, сіг.Ьор, 
іпсіех+ 1 ) ; 

зіеер(БеІауМоѵе); 

//пустая клетка: 

Ьогті. ітІРіс . Ргаи (Ьогті. сідРоІе . Сапѵаз, сіг.ІеЬЬ, сіг.Ьор, 0) ; 
зіеер(БеІауМоѵе); 

//в следующей появляется шарик: 
р:= раЫі[і+1].х; д: = раЫі[і+1].у; 

Сеіі[р, д].ВаІІСоІог := Ъс; 

//появление шарика: 

сіг:= Ьогті. сідРоІе . СеІІКесЬ (р, д); 

Ьогті. ітІРіс . Бгаи (Ьогті. сідРоІе . Сапѵаз, сіг.ІеЬЬ, сіг.Ьор, 
іпсіех+ 1 ) ; 

зіеер(БеІауМоѵе); 

Ьогті. ітІРіс . Эгаи (Ьогті. сідРоІе . Сапѵаз, сіг.ІеЬЬ, сіг.Ьор, 
іпсіех+ 2 ) ; 

зіеер(БеІауМоѵе); 

Ьогті. ітІРіс . Бгаи (Ьогті. сідРоІе . Сапѵаз, сіг.ІеЬЬ, сіг.Ьор, 
іпсіех+3) ; 

зіеер (160) ; 

Зоипсі ( ' тоѵеі ' ) ; 
епсі 

еізе Ьедіп 

//координаты первой клетки: 
і:= раЫі[ 0 ].х; 3 : = раЫі[ 0 ].у; 

//цвет шарика: 

Ьс:= Се11[і, з].ВаІІСоІог; 

//первая клетка становится пустой и серой: 

Се11[і, з].ВаІІСоІог:= ЬсЫопе; 

Ьогті. ЬдРоІеОгавдСеИ (ЗеІЬ, і, з, Ьогті. сідРоІе . СеІІКесЬ (і, 

з ),[]); 

//координаты последней клетки: 




р:= раЫі [тазРаЫі [х, у]].х; ч : = раЬЬ. [тазРаЬЬ. [х, у]].у; 

//в ней появляется шарик: 

Сеіі [р, д].Ва11Со1ог := Ъс; 

Рогті . сідРоІеРгаѵСеІІ (5е1Р, р, іогті . сідРоІе . СеІІКесЬ (р, 

ч) Л ]); 

Зоипсі ( ' тоѵеі ' ) ; 
зіеер (160) ; 
епсі; 
епсі; 


Сначала мы возвращаем клетки поля в нормальное состояние 
цвет), затем формируем путь шарика в массиве раіі ?: 

(серый 

//СФОРМИРОВАТЬ ПУТЬ 

ргосесіиге ТРоІе . СгеаЬеРаиі (ЕпсіСеІІ: ТРоіпЬ) ; 

ѵаг 

п, ЪепРаЫі: іпЬедег; 
і, р, ч: іпЬедег; 


//проверить координаты: 

іипсЬіоп ТезЬСоогсі (х, у: іпЬедег): Ьооіеап; 

Ьедіп 

Кези1Ь:= Ьгие; 

іі (х<0) ог (х> иісіЫі-1) ог (у<0) ог (у> ЬеідЬЬ-1) ог 
(тазРаЫі [х, у] о п-1) ЬЬеп 

Кези1Ь:= Ьаізе; 

епсі; 


Ьедіп 

//длина пути равна числу в конечной клетке: 

ЪепРаЫі: = тазРаЫі [ЕпсіСеІІ. х, ЕпсіСеІІ.у]; 
п:= ЪепРаЫі; 

//конечная клетка пути: 
раЫі[п]: = ЕпсіСеІІ; 

//двигаемся от неё к начальной клетке: 
гереаЬ 

//найти соседнюю клетку с числом п-1: 
р:= раЫі[п] .х; ч := раЫі[п] .у; 

//проверяем соседние клетки: 

Рог і:=р-ІЬор + 1сіо 

Рог ^=ч - 1'Ь°Ч + 1 с1 0 
//нашли подходящую клетку: 

іі ( (і=р) ог ( □ =<д;) ) апсі ТезЬСоогсі (і, :) ) ЬЬеп 

Ьедіп 

//записываем её координаты: 
раЬЬ[п-1]:= РоіпЬ(іЛЛ 

Ьгеак; 

епсі; 

//ищем клетку с предыдущим номером: 

Ьес (п); 
ипЫІ п<0; 
епсі; 







Шарик анимированно исчезает в начальной клетке и появляется в 
соседней, и так - пока не допрыгает до конечной клетки пути. Процесс 
перемещения шарика, сопровождаемый бульканьем и анимацией, может 
быстро надоесть, поэтому в программе должна быть возможность 
отключить последовательное перемещение шарика и сразу 
«телепортировать» его в заданную точку игрового пространства. Для 
этого мы установим кнопку зЪіРаій (НіпІ=Путь вкл-откл СгоирІпйех=2], 


действующую подобно зЪіЗоипй. Когда она нажата - 



, - будет показан 


весь путь шарика по клеткам, если отжата 
конечной клетке. 



, - он сразу появится в 


Если в результате хода образовалась фигура (линия или блок] 
достаточного размера, то её нужно уничтожить: 


//увеличить число сделанных ходов: 
іпс (Носі.ѵаіие) ; 

//и показать на экране: 

Носі . ЗЬоиѴаІие ; 

//если образовалась нужная фигура, уничтожить её: 
п:= БеІебеРідз ; 


Поиском и ликвидацией фигур у нас занимается функция ЬРоІе.ОеІеіеРідз: 


//УНИЧТОЖИТЬ ФИГУРУ 

^ипсЬіоп ЬРоІе . БеІеЬеРідз : іпЬедег; 

//возвращает число уничтоженных шариков 
ѵаг 

іпсіех: іпбедег; 

Ьс: ТВаІІСоІог; 
сіг: ТКесЬ; 

//найти на поле блоки нужной величины 

ГипсЫоп СеЬВІоскз(х,у: іпкедег; ЗеІесЬ: Ьооіеап): Ьооіеап; 

//х,у - координаты первой клетки 

ѵаг 

тазРаЬЬ2 : ТГіеІсі; 

// список координат : 

СоогбЫзЬ: аггау [1. .МАХ_ИЮТН * МАХ_НЕІОНТ] оі ТРоіпб; 
//указатели в списке: 
рбгІАГгібе, рбгКеасі: іпбедег; 
р, д: іпбедег; 
і, ^: іпбедег; 

//проверить координаты 

Гипсбіоп ТезбСоогсі (х, у: іпбедег) : Ьооіеап; 

Ьедіп 








Кези1б:= бгие; 

іб (х<0) ог (х> ТлГісі'Ып— 1) ог (у<0) ог (у> НеідЬб-1)ог 
(тазРабЪ.2 [х, у] О СО) бЬеп Кезиіб:= баізе; 
епсі; 

Ьедіп 

//сначала в блоке один шарик: 
п : = 1 ; 

//отметить в массиве первую клетку: 
іб Зеіесб бЬеп тазРабіі [х, у] : = 1; 

//формируем массив лабиринта: 
бог Л = 0 бо ЬеідЬб-1 сіо 
бог і:= 0 бо иісІбЬ-1 сіо 

//если в клетке есть шарик, то клетка непроходима: 
іб Роіе . Сеіі [ і, Л . ВаІІСоІогО Ьс бЬеп 
шазРабЬ2[і, Л := ЗТОР 
//иначе - клетка непроходима: 
еізе 

тазРабЬ2 [і,Л : = СО; 

//заносим в список координаты начальной клетки: 

СоогсіЬізб [ 1 ] : = Роіпб(х,у); 

//в начальную клетку в массиве СеІІРабЪ. ставим ВЕС_СЕЪЪ= 0: 
тазРабЬ2[х, у] : = 0; 

//устанавливаем указатель для считывания координат на начало 
списка: 

рбгКеаб:= 1; 

//устанавливаем указатель для записи новых координат на 
следующий индекс : 
рбгѴ\7гібе: = 2; 

//двигаемся от начала списка к его концу, пока он не кончится: 
ѵЛііе рбгКеасі < рбгИгібе сіо Ьедіп 
//координаты текущей клетки: 

р:= СоогбЫзб [рбгКеасі] . х; д:= СоогЬЬізб [рбгКеасі] . у; 
//проверяем соседние с ней клетки: 
бог і:=р-1бор + 1сіо 
бог Л=д-1бод+1 сіо 

//если нашли соседнюю проходимую клетку, 
іб ( (і=р) ог (□ =<д;) ) апсі ТезбСоогсі (і, Л бЬеп 
Ьедіп 
іпс (п); 

//то записываем в неё 1: 

тазРабЬ2 [ і ,з] := 1; 

іб Зеіесб бЬеп тазРабіі [ і, з ] : = 1; 

//записываем координаты соседней клетки в конец 

списка: 

СоогбЫзб [рбгИгібе] := Роіпб (і, ^ ) ; 

//перемещаем указатель: 
іпс (рбгИгібе); 
епсі; 

//переходим к следующей клетке в списке: 




іпс (рбгКеасі) ; 

епсі; 

//найдена ли цепочка нужной длины? 
іб п>= ЪепВІоскз бЬеп Кези1б:= бгие 
еізе Кези1б:= баізе; 
епсі; 

//уничтожить блок 

ргосесіиге БеІебеВІоскз ; 

ѵаг 

і, з : іпбедег; 

Ьедіп 

//проверить клетки поля: 
бог ^:= 0 бо ЬеідЬб сіо 

бог і:= 0 бо иісібЬ. сіо Ьедіп 
//цвет очередного шарика: 

Ъс:= Сеіі[і,з].ВаІІСоІог; 

//пустая или проверенная клетка: 

іб (Ъс= ЬсЫопе) ог (тазРабЬ[і, 3 ]= 1) бЬеп Сопбіпие; 
//искать вправо: 

іб СебВІоскз (і, :і, баізе) бЬеп СебВІоскз(і,^, бгие) ; 
епсі; 
епсі; 

//найти на поле цепочки нужной длины 

бипсбіоп СеббепСЬаіп (х, у, сіх, сіу: іпбедег; Зеіесб: Ьооіеап) : 
Ьооіеап; 

Ьедіп 

//сначала в цепочке один шарик: 
п : = 1 ; 

//отметить в массиве первую клетку: 
іб Зеіесб бЬеп тазРабЬ[х,у]:= 1; 

//координаты следующей клетки: 
х:= х+сіх; у:= у+сіу; 

иЬііе (х>= 0 ) апсі (х< иісібЬ) апсі (у>= 0 ) апсі (у< ЬеідЬб) апсі 
(Сеіі [х, у] .Ва11Со1ог= Ьс) сіо Ьедіп 
// цепочка удлинилась: 
іпс (п) ; 

//отметить клетку: 

іб Зеіесб бЬеп тазРабЬ[х,у]:= 1; 

//координаты следующей клетки: 
х:= х+Ьх; у:= у+Ьу; 
епсі; 

//найдена ли цепочка нужной длины? 
іб п>= Ъепбіпез бЬеп Кези1б:= бгие 
еізе Кези 1 б:= баізе; 
епсі; 

//уничтожить линии 

ргосесіиге БеІебеЬіпез ; 

ѵаг і, ^: іпбедег; 

Ьедіп 




//проверить клетки поля: 
іог 3 : = 0 іо ііеідііі сіо 

іог і:= 0 іо иісіііі сіо Ьедіп 
//цвет очередного шарика: 

Ьс:= Сеіі [і,з] .ВаіІСоіог; 

іі Ьс= ЬсЫопе іііеп Сопііпие; // - пустая клетка 
//искать вправо: 

іі: СеіЪепСііаіп (і, 3 ,1,0, іаізе) іііеп 
СеіЪепСііаіп(і,д,1,0,ігие); 

//искать вниз: 

іі СеіЪепСііаіп (і, з , 0,1, іаізе) іііеп 
СеіЪепСііаіп(і,д,0,1,ігие); 

//искать вправо-вниз: 
іі СеіЪепСііаіп (і, з , 1,1, іаізе) іііеп 
СеіЪепСііаіп(і,д,1,1,ігие); 

//искать влево-вниз: 

іі СеіЪепСііаіп (і, з ,-1, 1, іаізе) іііеп СеіЪепСііаіп (і, з , - 
1 , 1 ,ігие); 
епсі; 
епсі; 


Ьедіп 

//обнулить массив тазРаііі: 

іог 3 := 0 іо ііеідііі -1 сіо 
іог і:= 0 іо иісіііі -1 сіо 
тазРаііі [і, з ] := 0; 

іі ТуреГід= ііВІоскз іііеп ЪеІеіеВІоскз 
еізе Беіеіеііпез; 

п : = 0 ; 

//подсчитать число уничтожаемых шариков: 

іог 3 := 0 іо ііеідііі -1 сіо 
іог і:= 0 іо иісІііі -1 сіо 

іі тазРаііі [і, з ] = 1 іііеп іпс(п); 

Кези1і:= п; 

іі п= 0 іііеп ехіі; 

//уничтожить шарики: 

іог п:= 1 іо 5 сіо Ьедіп 
іог 3 := 0 іо ііеідііі -1 сіо 
іог і:= 0 іо иісіііі -1 сіо 

іі тазРаііі [і, з ] = 1 іііеп Ьедіп 
//исчезновение шарика: 
сіг:= іогті. сідРоІе . СеІІКесі (і, з); 
Ьс:= Сеіі[і,з].ВаіІСоіог; 
іпсіех:= (огсі(Ьс)-І) * регіосі+п+5; 
іі п=5 іііеп Ьедіп 

іпсіех:= 0 ; // - пустая клетка 
Сеіі[і,з].ВаіІСоіог:= ЬсЫопе; 
епсі; 




когті. ітІРіс . Бгаи (когті. сідРоІе . Сапѵаз, сіг.іекк, бг.кор, 

іпсіех) ; 

епсі; 

зіеер(РеІауРезкгоу); 
епсі; 

Зоипсі ( ' сіе5кгоу2 ' ) ; 
епсі; 


Так как линии и блоки отличаются по форме, то ими занимаются разные 
процедуры: 


ік ТуреГід= ккВІоскз кЪеп БеІекеВІоскз 
еізе Оеіекеііпез; 


Длину линий мы вычисляем так. Находим на поле шарик и считаем, 
сколько он имеет соседей справа, снизу, а также по диагоналям вниз- 
вправо и вниз-влево. Если удалось найти цепочки нужной длины, фукция 
СеЫепСЪаіп возвращает ТКЦЕ, и вызывается вторично, чтобы отметить 
шарики в длинных линиях: тазРаі:Ь[]:= 1. 

Число шариков в блоке мы подсчитываем по тому же алгоритму, по 
которому отыскивали путь в лабиринте и окрашивали клетки поля. После 
применения алгоритма в массиве тазРаіЪ единицами будут отмечены 
клетки, образующие блоки. 

Таким образом, независимо от типа собираемых фигур, по содержимому 
массива тазРаІк мы легко определим, какие шарики нужно уничтожить и 
сколько их: 


п : = 0; 

//подсчитать число уничтожаемых шариков: 
ког ^:= 0 ко кеідкк-І сіо 
ког і:= 0 ко нійкЬ-І сіо 

ік тазРакк [і, ^]= 1 ккеп іпс(п); 
Кези1к:= п; 
ік п= 0 ккеп ехік; 


Если ни одной фигуры не найдено ( п= О'), то и уничтожать нечего. В 
противном случае «фигуристые» шарики уничтожаются - также 
анимированно (5 кадров). 

Функция ЮеІеіеРідз возвращает число шариков в фигуре (оно может быть 
равно нулю, если в результате хода не возникло ни одной фигуры), и мы 
можем вывести новую статистику игры: 


//вычислить и показать набранные очки: 
Зсоге. ЗекѴаІие (п); 











Зсоге. ЗбюиѴаІие; 

//вычислить и показать игровой тонус: 

Топиз . СебѴаІие; 

Топиз. ЗбюмѴаІие; 

//если был сделан результативный ход и на поле есть шарики, 
//то ждать следующего хода: 

іб (п> 0) апсі (Топиз.ЕтрбуРо1е= баізе) бЬеп ехіб; 


Также мы должны учесть, что по правилам игры после результативного 
хода ( п> 0 ) игрок может сделать ещё один ход - если, конечно, на поле 
остались пустые клетки: 


//если для новых шариков не осталось места, то игра проиграна: 
іб Топиз. ЕтрбуСеІІ < ЫитВаІІз .пРобот бЬеп Ьедіп 
СатеОѵег ; 
ехіб 
епб; 


//если поле пустое - победа: 
іб Топиз.ЕтрбуРо1е= бгие бЬеп Ьедіп 
СатеИіп; 
ехіб 
епб; 


Если игру можно продолжить, то мы выводим на поле новую порцию 
шариков: 


//найти место для новых шариков: 

п : = 0 ; 

гереаб 

і:= гапбот (ТлЛЬЬЬ) ; 

^:= гапбот (НеідЬЬ) ; 

іб Се11[і, ;] ] .Ва11Со1ог= ЬсЫопе бЬеп Ьедіп 

//поместить в пустую клетку «следующий» шарик: 
Се11[і, з]. ВаІІСоІог:= ЫехбВаІІз[п+1]; 

Се11[і, з].пеи:= бгие; 
іпс (п) 
епб; 

ипбіі п= ЫитВаІІз. пРобот; 

//появление шариков с бульканием: 

СгеабеВаІІз; 


Если и эти шарики образовали с уже имеющимися на поле новые фигуры, 
их также следует уничтожить: 


//если образовалась нужная фигура, уничтожить её: 
п:= ЬеІебеЕідз; 












//вычислить и показать набранные очки: 
Зсоге. ЗеЬѴаІие (п); 

Зсоге. ЗЬоиѴаІие; 

//вычислить и показать игровой тонус: 
Топиз. СеЬѴаІие; 

Топиз. ЗЬоиѴаІие; 


В сетке-табло показываем следующие шарики: 


//показать следующие шарики: 
Іпі'ЬЫех'ЬВаІІз ; 

ЗЬомЫехВВаІІз ; 


После самоуничтожения фигур поле могло очиститься полностью: 


//если поле пустое - победа: 

ІЬ Топиз. ЕтрЬуРо1е= Ьгие ЬЬеп Ьедіп 
СатеИіп; 
ехіЬ 
епб; 


Но могла возникнуть и такая позиция, в которой ходов у игрока нет: 


//если ходов нет - поражение: 
іі Топиз. Еи11Ро1е= Ьгие ЬЬеп Ьедіп 
СатеОѵег ; 
ехіЬ 
епб; 


Обычно игра рано или поздно заканичивается печально: 


//ИГРА ЗАКОНЧЕНА 

ргосесіиге ЬРоІе . СашеОѵег ; 

Ьедіп 

Ьогті. ітдРог . ѵізіЫе : = Ьгие; 
зіеер (1000); 

аррІісаЬіоп.РгосеззМеззадез; 
зоипсі ( 1 датеоѵег 1 ) ; 
зіеер(7500); 

Ьогті. ітдРог . ѵізіЫе : = Ьаізе; 
зіеер ( 1000 ); 

аррІісаЬіоп.РгосеззМеззадез; 
Зсоге.ЗеЬКес; 

Ьогті.ИеиСате; 
епб; 


Это событие сопровождается противной музыкой и обидной надписью 
(Рис. 5.33) (картинка для неё находится в компоненте ітдРог ). 















Рис. 5.33. Финита ла комедиа! 

После чего программа определяет, не стали ли вы новым рекордсменом, и 
начинает новую игру. 

Очень редко кому доведётся на своём веку пережить более счастивый 
финал (Рис. 5.34). 


//ПОБЕДА! 

ргосесіиге •ЬРоІе . СатеМіп ; 

Ьедіп 

Догті. ІтдРоЪесІа . ѵізіЫе : = Ъгие; 
зіеер (1000); 

аррІісаЪіоп.РгосеззМеззадез; 
зоипсі ( ' роЪесІа ' ) ; 
зіеер (7 500); 

Догті. ітдРоЬесіа . ѵізіЫе:= Даізе; 
Зсоге . ЗеДКес; 

Догті.ЫеѵСате; 
епсі; 



Рис. 5.34. Бывает всякое - это жизнь! 

«Победная» картинка загружена в компонент ІтдРоЪесІа. 
Эти картинки хранятся в папке гезик. 



Исходный код программы находится в папке Линии. 

























«Требую продолжения банкета!», или Где начало то¬ 
го конца, которым оканчивается начало? 


Король умер. Да здравствует король! 
Круговращение французких королей 


Собирание шариков в линии и блоки - процесс сугубо абстрактный, весьма 
далёкий от насущных потребностей человека, поэтому мы попытаемся 
придать ему некий рациональный смысл. Например, уничтожение групп 
шариков по достижении ими «критической массы» можно легко 
интерпретировать как взаимодействие атомов. Собирание атомов в 
молекулы - это модные сейчас нано-технологии, то есть процессы, вполне 
достойные просвещённого ума! Эти примеры трансформирования игры 
можно продолжать сколь угодно долго, поэтому мы переходим от 
залихватских фантазий к вполне практическому программированию 
учебно-воспитательных приложений. 


Молекулярный конструктор 

Не робей — собирай скорей! 
Антинаучный призыв 

В первой игре мы будем собирать молекулы из атомов. Понятно, что между 
молекулами и блоками шариков принципиальной разницы нет (в смысле 
игры!), поэтому исправления исходной программы будут минимальны. 

В первую очередь, наш конструктор предназначен для школьников, здесь 
важен сам по себе процесс сборки молекул из атомов, так что все лишние 
настройки программы вместе с кнопками мы безжалостно удалим, дабы 
они не отвлекали игрока от сущности бытия, и оставим только самое 
необходимое для имитации сборки молекул. Прочтите справочный файл к 
программе, из которого легко определить, что именно нам нужно 
изменить в программе Линии-. 


Ваша задача - собирать молекулы, состоящие не менее чем из шести 
атомов одного вида. Атомы в молекуле могут соединяться только по 
горизонтали и вертикали, но не по диагонали. 





Всего имеется 7 разновидностей атомов, представленных в игре шариками 
разного цвета. 

Как только вы соберёте молекулу нужной величины, в ней произойдёт 
цепная реакция и она исчезнет, а вы за этот научно-технический подвиг 
получите призовые очки и сможете продолжить сборку (сделать ещё один 
ход). Чем длиннее получится цепочка, тем больше очков вы за неё 
получите. В противном случае появятся ещё три новых атома. 

Чтобы переместить атом с одного места на другое, щёлкните его мышкой. 
Он перейдёт в возбуждённое состояние и будет подпрыгивать. Затем 
щёлкните на той клетке игрового поля, куда бы вы хотели переместить 
атом. Но имейте в виду, что атом нельзя переместить на уже занятую 
клетку или на клетку красного цвета. Если вы выбрали какой-то атом, а 
затем передумали, то просто щёлкните на другом атоме - и он станет 
выбранным. 

Число оставшихся у вас ходов (при условии, что вы не сможете больше 
собрать ни одну молекулу) указывается справа, под надписью Тонус. Там 
же вы найдёте и другую полезную информацию: 



Молекулярный конструктор в действии 































































Игра заканчивается, если на поле не останется места для новых атомов 
С проигрыш ] или все атомы будут уничтожены [выигрыш]. 


В любое время вы можете возобновитъ игру, нажав кнопку 



а также 


закончитъ игру, нажав кнопку 
следующая порция атомов. 


Между этими кнопками показана 


Вы также можете отключить звук с помощью кнопки 
помощью кнопки 


и показ пути с 


Таким образом, нужно исправить только 1 строчку кода: 


//СОЗДАТЬ ФОРМУ 

ргосесіиге ТРоггпІ . ГогшСгеаДе (Зепсіег : ТОЬдесЬ) ; 
Ьедіп 

ТуреРід : =Ѣ^В1оскз ; 

епсі; 


Заменить картинки в компоненте ітІРіс (Рис. 5.35). 
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Рис. 5.35. Атомы во всей красе! 

И, конечно, заголовок окна приложения (Рис. 5.36). 



Рис. 5.36. Название игры 




































Исходный код программы находится в папке МакеМоІ. 


Экологический субботник 

Чистота - залог здоровья. 
Такая пословица 

Чисто не там, где убирают, 
а там, где не сорят. 

Тоже 

Не надо мусорить, да?! 
Гринписовский призыв 

Если в первой игре мы воспользовались таким свойством игры Линии как 
собирание фигур, то во второй нам пригодится другое её свойство - мы 
будем уничтожать фигуры, освобождая поле от шариков - так мы будем 
наводить чистоту в родном городе. 

В соответствии с новыми задачами изменим интерфейс программы. 
Заголовок окна (Рис. 5.37]. 



Рис. 5.37. Название игры 
Таблички с надписями (Рис. 5.38). 



Рис. 5.38. Статистические таблички 

Вместо таблички Тонус появятся 2 новые (Рис. 5.39). 



Рис. 5.39. Специфические таблички 














ОеІрНі в примерах, играх и программах 


Шарики заменит городской мусор - огрызок яблока, шляпа, опавшие 
листья и старый башмак (Рис. 5.40). 
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Рис. 5.40. Типичная картина! 

В игре используются только три первых артефакта, иначе выиграть будет 
затруднительно! 

Новые условия игры мы учитываем при создании формы. Сразу после 
запуска приложения в городе появляются 10 «штук» мусора, а затем - по 3. 
Разновидностей мусора, как мы только что выяснили, тоже 3. Собирать 
мусор следует в кучи, имеющие форму блоков : 


//СОЗДАТЬ ФОРМУ 

ргосесіиге ТРогхпІ . ГогшСгеа'Ье (Зепсіег : ТОЬ^есЬ) ; 

Ьедіп 

//шарики: 

ЫитВаІІз .пЗгаги:= 10; 

ЫитВаІІз .пРоЬот:= 3; 

//количество цветов: 

ЫитВаІІз . пСоіог := 3; 

ТуреРід : =Ы:В1оскз; 

епсі; 


Поскольку величина поля не изменяется и всегда равна 9x9 клеток, то и 
размер клеток можно увеличишь, чтобы картинка лучше «смотрелась»: 


ѵаг 

//размеры клетки сетки: 
ѵгСеІІ: іп1:едег = 43; 
ЬСеІІ: іп1:едег = 43; 


Соответственно придётся исправить и класс ЬТопш: 














//игровой тонус: 

Ьуре ЬТопиз= сіазз 

//число оставшихся ходов: 
ѵаіие: іпГедег; 

//число пустых клеток на поле: 

ЕтрГуСеІІ: іпГедег; 

//есть ли на поле шарики? 

ЕтрГуРоіе : Ьооіеап; 

//есть ли на поле хотя бы одна свободная клетка? 
ЕиІІРоІе: Ьооіеап; 

//процент очищенной площади города: 

СЪізЬо : іпЬедег ; 

//число клеток с мусором: 

Мизог: іпЬедег ; 

сопзЬгисЬог СгеаЬе; 
ргосебиге ЗЬоиѴаіие; 
ргосебиге СеГѴаІие; 
епсі; 


/////////////////////////////////////////////////////////// 
/////////////////// ИГРОВОЙ ТОНУС //////////////////////// 
/////////////////////////////////////////////////////////// 

сопзЬгисЬог ЬТопиз.СгеаЬе; 

Ьедіп 

іпЬегіГесі; 

СЫзГо: = 0; 
епсі; 

//ВЫЧИСЛИТЬ ПЛОІДАДЬ 

ргосесіиге ЬТопиз . СеЬѴаІие ; 

ѵаг 

і, з: іпГедег; 

Ьедіп 

//подсчитать число пустых клеток на поле: 

ЕтрЬуСе11:= 0; 

Гог ;]:= 0 Ьо Роіе.НеідЬЬ-1 сіо 
Гог і:= 0 Го Роіе. МісІГЬ-1 сіо 

ІГ Ро1е.Се11[і, ;і ] . Ва11Соіог= ЬсИопе ГЬеп іпс(ЕтрГуСеІІ); 
сЫзГо:= 0; 

Гог ;]: = 0 Го Роіе.НеідЬГ-1 сіо 
Гог і:= 0 Го Роіе.Ѵ\ГісІГЬ-1 сіо 

ІГ Роіе . тазСІеаг [ і, ;] ] = Ггие ГЬеп іпс (СЫзГо) ; 

ѵа1ие:= СЫзГо*100 сііѵ (Роіе . НеідЬГ*Ро1е .МісіГЬ) ; 

// мусор : 

тизог:= РоІе.НеідЬГ * Роіе. МісІРЬ - ЕтрГуСеІІ; 

//проверить, не пусто ли поле: 

ІГ ЕтрГуСеІІ = РоІе.НеідЬГ * Роіе. ЭДісІГЬ ГЬеп 
ЕтрГуРо1е:= Ггие 






еізе 

ЕтрЬуРоІе:= іаізе; 

//проверить, есть ли на поле свободные клетки: 
іі ЕтрЬуСеІІ = 0 Ыіеп 
Еи11Ро1е:= Ьгие 
еізе 

Еи11Ро1е:= іаізе; 

епсі; 

//ВЫВЕСТИ ЗНАЧЕНИЕ ТОНУСА НА ЭКРАН 

ргосесіиге ЬТопиз . ЗЬоѵѴаІие; 

Ьедіп 

іогті. ІЫТопиз . СарЬіоп : = іпЬЬозЬг (ѵаіие) + ' % ' ; 
іогті. ІЫТопиз . ІпѵаІісіаЬе; 

іогті. ІЫМизог . СарЫоп : = іпЬЬозЬг (Мизог ) ; 
іогті. ІЫМизог . ІпѵаІісіаЬе; 
аррІісаЬіоп.РгосеззМеззадез 
епсі; 


В классе іЗсоге мы изменим подсчёт набранных очков: 


/////////////////////////////////////////////////////////// 
//////////////////////// очки ///////////////////////////// 
/////////////////////////////////////////////////////////// 


//ПОДСЧИТАТВ НАБРАННЫЕ ОЧКИ 

ргосесіиге ЬЗсоге. ЗеЬѴаІие (п: іпЬедег) ; 

Ьедіп 

іі Ьосі. ѵаіие > 80 Ыіеп бес (ѵаіие) 
еізе 

іі п> 0 Ыіеп ѵаіие:= ѵаіие + 4*п - 9; 

епсі; 


Фоном для поля послужат 2 фотографии города - чёрно-белая (метафора 
грязного города) и цветная ( чистого ) (Рис. 5.41). 






Рис. 5.41. Наглядный призыв к чистоте! 

Их размеры для поля 9x9 клеток и размера клеток 43 х 43 пикселя 
должны быть 387 х 387 пикселей. Хранить картинки разумно в 
компоненте ітЮогосІ: ТІтадеИзі (5.42). 
































Рис. 5.42. Городской фотоальбом 

Всего из двух фотографий получится 9x9x2 = 162 маленьких квадратика. 
Естественно, фотографии не нужно нарезать вручную - при загрузке их в 
компонент ТІтадеЬЫ эта операция выполняется автоматически! 

Так как теперь каждая клетка поля имеет фон (изменяющийся по ходу 
игры), на который накладываются картинки с мусором, то процедура 
отрисовки клеток поля становится более сложной: 


//ОТРИСОВАТЬ СЕТКУ 

ргосесіиге ТРогшІ . сідРоІеБгаѵСеІІ (Зепсіег: ТОЬоесЬ; АСоІ, АКом: 
ІпЬедег; 

КесЬ: ТКесЬ; ЗЬаЬе: ТСгісШгамЗЬаЬе) ; 
ѵаг 

сіг: ТРЕСТ; 
іпсіех: ІпЬедег; 

Ьтр: ТВі Стар; 

Ьедіп 

//размеры картинок: 

сіг:= Воипсіз (КесЬ. ЪеЬЬ, КесЬ. Тор, ѵСеІІ, ЬСеІІ); 

//создать промежуточный растр: 

Ътр:= ТВіЬтар.СгеаЬе; 

Ьтр . И7ісіС:Ь.: = иСеІІ; 

Ьтр.НеідЬЬ:= ЬСеІІ; 

//картинка с шариком в ячейке: 

іпсіех:= (огЬ (Роіе.Сеіі[АСоІ, АКоѵ].ВаІІСоІог)); 

ІЬ іпс1ех> 0 ЬЬеп Ьедіп//- в клетке есть "шарик" 
іпсіех:= СеЫпЬех (АСоІ, АКоѵ); 

//скопировать картинку с городом в ячейку: 







































ІтІСогосІ. Бгаи (Ьтр . Сапѵаз, О, 0, іпсіех); 

//затем - картинку с "шариком": 

іпсіех:= (огсі (Роіе . Сеіі [АСоІ, АКоѵ] . ВаІІСоІог) ) ; 

іпсІех: = (іпсіех-1) * регіосі + 3; 

ітІРіс . Бгаѵ (Ьтр . Сапѵаз, О, О, іпсіех); 

сідРоІе . сапѵаз . Ьгаѵ (КесЬ . ЪеіЬ, КесЬ.Тор, Ьтр); 

епсі 

еізе Ьедіп //- пустая клетка 

іпЬех:= СеЫпсіех (АСоІ, АКои) ; 

//скопировать картинку с городом в ячейку: 
ітІСогосі. Ргаѵ (ЬдРоІе . Сапѵаз, Ьг.ІеіЬ, Ьг.Ьор, іпсіех); 
//отметить доступные и недоступные клетки: 
іі Роіе . Сеіі [АСоІ, АКои] . СеІІСоІогО ссСгау Ыіеп Ьедіп 
//нарисовать контурный квадрат: 

ІпіІаЬеКесЬ(сіг,-3,-3); 

сідРоІе . Сапѵаз .ВгизЬ.5Ьу1е:= ЬзСІеаг; 

сідРоІе . Сапѵаз . Реп . ИісіЬЬ: = 1; 

іі Роіе.Сеіі[АСоІ, АКои].Се11Со1ог= ссСгееп Ыіеп 
//цвет линий: 

сідРоІе . Сапѵаз . Реп . Соіог : = гдЬ (0,255,0) 
еізе 

сідРоІе . Сапѵаз . Реп . Соіог : = гдЬ (255,0,0); 
сідРоІе . Сапѵаз . КесЬапдІе (Ьг . ІеіЬ, Ьг.Ьор, сіг.гідЬЬ, 
сіг. ЬоЬЬот) ; 
епсі; 

епсі; 

Ьтр.Ггее; 
епсі; 


Сначала мы создаём в памяти компьютера промежуточный растр Ьтр, 
затем копируем в него картинку с городом. Тут нужно уметь различать 
грязные и чистые участки поля: 


^ипсѣіоп ТРогшІ . СеЬІпсІех (X, У: іпЬедег) : іпЬедег; 

Ьедіп 

іі поЬ Роіе.тазСІеаг[х,у] Ыіеп //догоЬ2 
гези1Ь:= у*9+ х 
еізе 

гези1Ь:= у*9+ х+81; 

епсі; 


Индексы картинок грязного поля в ІтІСогосІ равны 0..80, чистого - 81..161. 

Если в клетке есть мусор, мы копируем соответствующую картинку поверх 
фона. Если клетка без мусора, то выводим в неё рамку зелёного (доступная 
клетка) или красного (недоступная) цвета (когда выделен какой-либо 
«шарик» на поле, естественно!). Скомбинированную картинку с фоном и 
мусором рисуем в ячейке поля. 






Теперь рассмотрим изменения в классе іРоІе. Прежде всего, нужно 
изменить значение переменной ЬепВІоскБ, так как минимальный размер 
блока (кучи) равен трём (иначе «победить» мусор будет очень трудно): 



Подпрыгивающий шарик в этой игре будет крутящимся в вихре мусором: 


//ПОДПРЫГИВАЮЩИЙ ШАРИК 

ргосесіиге ТРоІе . Апіша-Ьіоп ; 

//х. у - координаты клетки поля; 

//іпсіех - номер картинки; 
ѵаг 

сіг : ТгесЬ; 

х,у, іпсіех: іпЬедег; 

Ьедіп 

//все повторения выполнены: 

іі (АпітаЬеСеІІ . Р.ер<> 0) апсі (АпітаЬеСеІІ .Ехес= АпітаЬеСеІІ .Кер) 
ЬЬеп 
Ьедіп 

іогті . Ьітег2 . ЕпаЫеі: = Іаізе; 
ехіЬ; 
епсі; 

іогті.Ьітег2.ІпЬегѵаі:= АпітаЬеСеіі.ІпЬегѵаі; 
х:= АпітаЬеСеіі.х; 
у:= АпітаЬеСеіі.у ; 

//квадрат клетки: 

сіг : = іогті. сідРоіе . СеііКесЬ (х, у) ; 

//город : 

іпсіех := іогті. СеЫпсіех (х, у); 

//скопировать картинку с городом в ячейку: 
іогті. ітіСогосі. Вгаѵг (іогті. сідРоіе . Сапѵаз , сіг . ІеІЬ, сіг . Ьор, 
іпсіех) ; 

//номер текущей картинки: 

іпсіех : = АпітаЬеСеіі . Іпсіех [АпітаЬеСеіі . рЬгІпсіех] ; 

//вывести текущую картинку: 

Іогті. ітІРіс . Вгаѵг (Іогті. сідРоІе . Сапѵаз, сіг. ІеІЬ, сіг . Ьор, Іпсіех) ; 
іі (АпітаЬеСеІІ. зоипсіо '') апсі 






(АпітаЬеСеІІ. 8оипсіІпсіех= АпітаЬеСеІІ. рЬгІпсіех) 
Ыіеп 

Зоипсі (АпітаЬеСеІІ. зоипсі) ; 
іпс (Апіта'ЬеСеІІ. рЬгІпсіех) ; 

ІЬ АпітаЬеСеІІ.рЬгІпсіех> АпітаЬеСеІІ.Егате Ыіеп 
АпітаЬеСеІІ.рЬгІпсіех: = 1; 

ІЬ АпітаЬеСеІІ.гер<> 0 Ыіеп 
іпс(АпітаЬеСеІІ. ехес) ; 

епсі; 


Изменения в этой и следующих процедурах обусловлены необходимостью 
подкладывать фон под «шарик»: 


//ПЕРЕМЕСТИТЬ ШАРИК 

ргосесіиге ЬРоІе . БоМоѵеВаІІ (X, У: ІпЬедег); 

//X, У - координаты клетки 
ѵаг 

сіг : ТКЕСТ; 

іпсіех, і^: іпЬедег; 

Ьс: ТВаІІСоіог; 
р, д: іпЬедег; 
іпсі: іпЬедег; 

Ьедіп 

//убрать выделение с клеток: 

ОеасЬіѵаЬеВаІІ; 

//создать путь: 

СгеаЬеРаЫі (РоіпЬ (х, у) ) ; 

//переместить шарик из начальной клетки в конечную: 

ІЬ Ьогті . зЬЬРаЫі. сіоѵп= Ьгие Ыіеп //показать путь 
Ьог і:= 0 Ьо тазРаЫі[х, у]-1 сіо 
Ьедіп 

//координаты очередной клетки: 
р:= раЫі[і] .х; д:= раЫі[і] .у; 

//переместить шарик из очередной клетки в следующую - 
//цвет шарика: 

Ъс:= Сеіі [р, д]. ВаіІСоіог ; 

//очередная клетка становится пустой и серой: 

Сеіі [р, д]. ВаіІСоіог := ЬсИопе; 

//исчезновение шарика: 

сіг:= Ьогті . сідРоІе . СеІІКесЬ (р, д) ; 

іпсіех:= (огсі(Ьс)-І) * регіосі; 

/ /город: 

//скопировать картинку с городом в ячейку: 
іпсі:= Ьогті. СеЫпЬех (р, д); 

Ьогті. ітІСогоЬ. Ьгаи (Ьогті. сідРоІе . Сапѵаз, сіг.ІеЬЬ, Ьг.Ьор, 
іпсі) ; 

//пустая клетка: 






Рогші. ітІСогосі. Бгаи (Рогті. сідРоІе . Сапѵаз, Ъг.ІеРР, сіг.Рор, 
Іпсі) ; 

зіеер(БеІауМоѵе); 

//в следующей клетке появляется шарик: 
р:= раРЪ[і+1].х; д: = раРЪ [і+1].у; 

Сеіі[р, д].ВаІІСоІог := Ъс; 

//появление шарика: 

сіг:= Рогті. сідРоІе . СеІІКесР (р, д) ; 

//скопировать картинку с городом в ячейку: 

Рогті. ітІСогосі. Бгаи (Рогті. сідРоІе . Сапѵаз, Ъг.ІеРР, сіг.Рор, 
Рогті. СеРІпсіех (р, д) ) ; 

Рогті. ітІРіс . Огаѵ (Рогті. сідРоІе . Сапѵаз, сіг.ІеРР, сіг.Рор, 
іпсіех+3) ; 

зіеер(РеІауМоѵе); 
епсі 

еізе Ьедіп 

//координаты первой клетки: 
і:= раРЪ[0].х; 3 : = раРЪ[0].у; 

//цвет шарика: 

Ьс:= Се11[і, 3 ].ВаІІСоІог; 

//первая клетка становится пустой и серой: 

Се11[і, з].ВаІІСоІог:= ЪсИопе; 

Рогші. сідРоІеВгаѵСеІІ (5е1Р, і, 3 , Рогті. сідРоІе . СеІІКесР (і, 

з), [ ]) ; 

//координаты последней клетки: 

р:= раРЪ [тазРаРіі [х, у]].х; д:= раРЪ [тазРаРЪ[х, у]].у; 

//в ней появляется шарик: 

Сеіі[р, д].ВаІІСоІог:= Ъс; 

Рогші.ЪдРоІеОгаѵСеІІ(8е1Р, р, д, Рогті. сідРоІе . СеІІКесР (р, 

д), [ ]) ; 

ЗоипЪ('шоѵеі'); 
зіеер(160); 
епсі; 
епсі; 


//УНИЧТОЖИТЪ ФИГУРУ 

^ипсРіоп РРоІе.БеІеРеЕідз: іпРедег; 

//возвращает число уничтоженных шариков 
ѵаг 

і, 3 ,п, іпсіех: іпРедег; 

Ъс: ТВаІІСоІог; 
сіг: ТКесР; 

//найти на поле блоки нужной величины 

РипсРіоп СеРВІоскз(х,у: іпРедег; ЗеІесР: Ъооіеап): Ъооіеап; 

//х,у - координаты первой клетки 

ѵаг 

тазРаРЪ2 : ТРіеІсі; 

// список координат : 






СоогсПЫзЬ : аггау [ 1. .МАХ_Ѵ\ГІВТН * МАХ_НЕІСНТ] оР ТРоіпЬ; 
//указатели в списке: 
рЬгМгіЬе, рЬгКеасі: іпЬедег; 
р, д: іпЬедег; 
і, ^: іпЬедег; 

//проверить координаты 

РипсЬіоп ТезЬСоогЬ (х,у: іпЬедег): Ьооіеап; 

Ьедіп 

Кези1Ь:= Ьгие; 

ІР (х<0) ог (х> ЭДісіЫі-1) ог (у<0) ог (у> НеідЬЬ-1) ог 
(тазРаЬЬ2[х,у]О СО) ЬЬеп Кези1Ь:= Раізе; 
епсі; 

Ьедіп 

//сначала в блоке один шарик: 
п : = 1 ; 

//отметить в массиве первую клетку: 

ІР ЗеІесЬ ЬЬеп тазРаЬЬ[х,у]:= 1; 

//формируем массив лабиринта: 

Рог Л = 0 Ьо ЬеідЬЬ-1 сіо 
Рог і:= 0 Ьо ѵісіЬЬ-1 сіо 

//если в клетке есть шарик, то клетка непроходима: 

ІР Роіе . Сеіі [ і, Л . ВаІІСоІогО Ьс Ыіеп 
шазРаЬЬ2[і,Л := ЗТОР 
//иначе - клетка непроходима: 
еізе 

тазРаЬЬ2[і,з]:= СО; 

//заносим в список координаты начальной клетки: 

СоогсіЬізЬ [ 1 ] : = РоіпЬ(х,у); 

//в начальную клетку в массиве СеІІРаЫі ставим ВЕС_СЕЪЪ= 0: 
тазРаЬЬ2[х,у]:= 0; 

//устанавливаем указатель для считывания координат на начало 
списка: 

рЬгКеасі: = 1; 

//устанавливаем указатель для записи новых координат на 
следующий индекс : 
рЬгѴ\7гіЬе: = 2; 

//двигаемся от начала списка к его концу, пока он не кончится: 
иіііе рЬгКеасі < рЬгМгіЬе сіо Ьедіп 
//координаты текущей клетки: 

р:= СоогсіЬізЬ [рЬгКеасі] .х; д: = СоогсіЬізЬ [рЬгКеасі] . у; 
//проверяем соседние с ней клетки: 

Рог і:=р-ІЬор + 1сіо 
Рог Л = Ч - 1 Ьо д + 1 сіо 

//если нашли соседнюю проходимую клетку, 

ІР ( (і=р) ог (□ =сд) ) апсі ТезЬСоогЬ. (і, Л ЬЬеп 
Ьедіп 
іпс (п) ; 

//то записываем в неё 1: 




тазРаіЬ2 [і, Л : = 1; 

іі Зеіесі іЬеп тазРаіЬ [ і, 3 ] : = 1; 

//записываем координаты соседней клетки в конец 

списка: 

СоогсіЬізі [рігМгііе] := Роіпі (і, ^ ) ; 

//перемещаем указатель: 
іпс (рігМгііе) ; 
епсі; 

//переходим к следующей клетке в списке: 
іпс (рігКеасі) ; 

епсі; 

//найдена ли цепочка нужной длины? 
іі п>= ЪепВІоскз іЬеп Кезиіі:= ігие 
еізе Кези1і:= іаізе; 
епсі; 

//уничтожить блок 
ргосесіиге ОеіеіеВІоскз; 
ѵаг 

і, з : іпіедег; 

Ьедіп 

//проверить клетки поля: 
іог Л = 0 іо ЬеідЬі сіо 

іог і:= 0 іо иісііЬ. сіо Ьедіп 
//цвет очередного шарика: 

Ъс:= Сеіі [і] .ВаіІСоіог; 

//пустая или проверенная клетка: 

іі (Ъс= ЬсЫопе) ог (шазРаіЬ[і, 3 ]= 1) іЬеп Сопііпие; 
//искать вправо: 

іі СеіВІоскз(і, 3 ,іаізе) іЬеп СеіВІоскз(і, 3 ,ідие); 
епсі; 
епсі; 

Ьедіп 

//обнулить массив тазРаіЬ: 
іог Л = 0 іо ЬеідЬі -1 сіо 
іог і:= 0 іо иісііЬ -1 сіо 
тазРаіЬ[іЛ]:= 0; 

ОеіеіеВІоскз; 

п : = 0 ; 

//подсчитать число уничтожаемых шариков: 
іог Л= 0 іо ЬеідЬі-1 сіо 
іог і:= 0 іо ѵісііЬ -1 сіо 

іі тазРаіЬ [і,Л = 1 іЬеп іпс(п); 

Кези 1 і:= п; 

іі п= 0 іЬеп ехіі; 

//уничтожить шарики: 
іог п:= 1 іо 5 сіо Ьедіп 
іог Л = 0 іо ЬеідЬі-1 сіо 




Ьог і:= 0 Ьо ѵгісіЫі-1 сіо 

іЬ тазРаЬЬ [ і, 3 ] = 1 ЬЬеп Ьедіп 
тазСІеаг[і, 3 ]:= Ьгие; 

//исчезновение шарика: 

сіг : = Ьогші. сідРоіе . СеНКесЬ (і, 3 ); 

Ьс:= Сеіі[і,з].ВаІІСоІог; 
іпсіех:= (огсі(Ьс)-І) * регіоЫ+п+5; 
іЬ п=5 ЬЬеп Ьедіп 

іпсіех:= Ьогші. СеЫпЬех (і, 3 ) ; // - пустая клетка 

Ьогші. ішІСогосі. Бгаи (Ьогші. сідРоІе . Сапѵаз, сіг . ІеЬЬ, 
сіг.Ьор, іпсіех); 

Сеіі[і,з].ВаІІСоІог:= ЬсЫопе; 
епсі 
еізе 

//скопировать картинку с городом в ячейку: 

Ьогші. ішІСогосі. Бгаи (Ьогші. сідРоіе . Сапѵаз, сіг . ІеЬЬ, 
сіг.Ьор, Ьоггпі .СеЫпЫех (і, 3 )); 

Ьоггпі. ішІРіс . Ргаѵ (Ьоггпі. сідРоіе . Сапѵаз, сіг .ІеЬЬ, 
сіг.Ьор, іпсіех); 
епсі; 

зіеер(РеІауРезЬгоу); 
епсі; 

ЗоипЫ ( 1 сіезЬгоу2 1 ) ; 
епсі; 


//ПОЯВЛЕНИЕ ШАРИКОВ: 

ргосесіиге ТРоІе.СгеаЬеВаІІз; 

ѵаг 

і, з, іпсіех, іпсі: іпЬедег; 
сіг: ТРЕСТ; 

Ьедіп 

//г:= Ьоггпі.СеЬРесЬ; 

Ьог 3 := 0 Ьо Роіе. НеідЬЬ-1 сіо 

Ьог і:= 0 Ьо Роіе. Ѵ\ГісІЬЬ-1 сіо Ьедіп 
сіг:= Ьоггпі. сідРоіе . СеІІРесЬ (і, 3 ); 

іпсіех:= (огЫ (Роіе.Сеіі[і, 3 ]. ВаІІСоІог)-1) * регіосі; 

ІЬ Роіе.Сеіі[і, 3 ].пем= Ьгие ЬЬеп Ьедіп 
Ро1е.Се11[і, з].пеѵ:= Ьаізе; 

//скопировать картинку с городом в ячейку: 
іпсі:= Ьогші. СеЫпЬех (і, 3 ); 

Ьоггпі. ішІСогосі. Бгаи (Ьоггпі. сідРоіе . Сапѵаз, сіг.ІеЬЬ, сіг.Ьор, 

іпсі) ; 

Ьоггпі. ітІРіс . Бгаи (Ьоггпі. сідРоіе . Сапѵаз, сіг.ІеЬЬ, сіг.Ьор, 
іпсіех+ 1 ) ; 

Оеіау(ОеІауСгеаЬе); 

Ьоггпі. ішІСогосі. Бгаи (Ьоггпі. сідРоіе . Сапѵаз, сіг.ІеЬЬ, сіг.Ьор, 

іпсі) ; 

Ьогші. ішІРіс . Ьгаи (Ьогші. сідРоіе . Сапѵаз, сіг.ІеЬЬ, сіг.Ьор, 
іпсіех+ 2 ) ; 

Реіау(РеІауСгеаЬе); 






іогті. ітІСогосі. Бгаѵ (іоппі. сідРоІе . Сапѵаз, сіг.ІеіЬ, сіг.Ьор, 

іпсі) ; 

Ііогті. ітІРіс . Бган (Ііогті. ЬдРоІе . Сапѵаз, сіг.ІеіЬ, сіг.Ьор, 
іпсІех+ 3) ; 

Зоипсі ( ' Ъиі 3 к ' ) ; 
епсі; 
епсі; 

епсі; 


Необходимо исправить и процедуру ОоНод, так как изменились правила 
игры: 


//ПЕРЕМЕСТИТЬ ШАРИК 

ргосесіиге ЬРоІе. БоНосІ (X, У: ІпЬедег); 

//X, У - координаты клетки 
ѵаг 

п, і, 3 : іпЬедег; 

Ьедіп 

//если был сделан результативный ход и на поле есть шарики, 
//то ждать следующего хода: 

іЬ (п> 0) апсі (Топиз .ЕтрЬуРо1е= Ьаізе) ЬЬеп ехіЬ; 

//вывести следующие шарики ЫехЬВаІІз - 

//если для новых шариков не осталось места, то игра проиграна: 
ІЬ Топиз .ЕтрЬуСеІІ < ИитВаІІз.пРоЬот ЬЬеп Ьедіп 
СатеОѵег; 
ехіЬ 
епсі; 

//если поле пустое - победа: 

ІЬ (Топиз.СЬізЬо= Роіе .вдісіЬЬ*Ро1е . ЬеідЬЬ) апсі (Топиз .Мизог= 0) 
ЬЬеп Ьедіп 
СашеИіп; 
ехіЬ 
епсі; 

//найти место для новых шариков: 

п : = 0 ; 

гереаЬ 

і:= гапсіот (Роіе .ѴіісіЬЬ) ; 

3: = гапсіот (Роіе . НеідЬЬ) ; 

ІЬ Роіе.Се11[і, 3 ].Ва11Со1ог= ЬсИопе ЬЬеп Ьедіп 

//поместить в пустую клетку шарик случайного цвета: 
Ро1е.Се11[і, 3 ]. ВаІІСоІог := ЫехЬВаІІз[п+1]; 

Роіе.Се11[і, з].пеи:= Ьгие; 
іпс(п) 
епсі; 

ипЬіі п= ИитВаІІз.пРоЬот; 






//если поле пустое - победа: 

іР (Топиз . СЬізРо= Роіе . місіЫі*Ро1е . ЬеідЬР) апсі (Топиз .Мизог= 0) 
РЬеп Ьедіп 
СатеИіп; 
ехір 
епсі; 

//если ходов нет - поражение: 

ІР Топиз.Ги11Ро1е= Ргие РЬеп Ьедіп 
СатеОѵег; 
ехір 
епсі; 
епсі; 


В этой процедуре новый мусор появляется в тех клетках, где его нет: 


//найти место для новых шариков: 

п : = 0 ; 

гереаР 

і:= гапсіот ( Роіе . ИісіРЬ) ; 

^:= гапсіот (Роіе . НеідЬР) ; 

іР Ро1е.Се11[і, ;і ] . Ва11Со1ог= ЬсРГопе РЬеп Ьедіп 

//поместить в пустую клетку шарик случайного цвета: 
Ро1е.Се11[і, ;і ] . ВаІІСоІог : = ЫехРВаІІз[п+1]; 
Ро1е.Се11[і, Л.пеѵ;:= Ргие; 
іпс(п) 
епсі; 

ипРіі п= ЫитВаііз.пРоРот; 


Это значит, что игроку придётся убирать мусор и с уже очищенных 
участков города. Если вам это кажется несправедливым, вы можете 
помещать новый мусор только в грязные клетки... 

А наградой за победу в игре послужит новая картинка в компоненте 
ітдРоЪесіа (Рис. 5.43). 



Рис. 5.43. Заработал - получи грамоту! 
Справочный файл к программе: 






Ваша задача в этой игре - очистить родной город от мусора. И тогда - сна¬ 
чала грязный и серый - он станет цветным и радостным! 

Город разбит на 81 участок (это клеточки на игровом поле). На каждом из 
них может находиться мусор трёх разных видов, обозначенных огрызком 
яблока, рваной шляпой и опавшими листьями. 

Мусор нужно собирать в кучки. Не менее трёх соседних по вертикали и го¬ 
ризонтали участков должны быть заняты мусором одного вида. Если вам 
удастся это сделать, то мусор исчезнет, город на этих участках станет чи¬ 
сто-цветным, а вы получите призовые очки. Чем больше размер кучки, тем 
больше очков за неё вы получите, так что не ленитесь, гребите шибче! 

Чтобы переместить мусор с одного участка города на другой, щёлкните на 
участке с мусором, а затем на «целевом» участке. Но имейте в виду, что 
между этими двумя участками должен существовать путь, свободный от 
мусора. В игре все доступные участки выделяются зелёной рамкой, недо¬ 
ступные - красной (они появляются после выбора участка с мусором). 
Кроме того, вы не можете всё «валить в одну кучу» - на грязный участок 
мусор переносить нельзя. Если вы выбрали какой-то участок с мусором, а 
затем передумали, то просто щёлкните на другом участке - он станет вы¬ 
бранным. 

Как только вы соберёте кучку мусора нужной величины, она исчезнет, а вы 
сможете продолжить свою работу (сделать ещё один ход). В противном 
случае «свежий» мусор появится ещё на трёх участках города. 

Число грязных участков указывается справа, под надписью Мусор, процент 
убранной территории - под надписью Чисто : 



ОеІрНі в примерах, играх и программах 



Если вы не справитесь с задачей за 80 ходов, то дальше призовые очки вам 
начисляться не будут, а наоборот, вы будете терять по одному очку за 
каждый лишний ход. 

Игра заканчивается, когда город будет полностью очищен от мусора ( Чи¬ 
сто = 100%) и ни на одном участке не останется мусора (Мусор = 0). 


В любое время вы можете начать новую игру, нажав кнопку , а также 


закончить игру, нажав кнопку * . Между этими кнопками показан тот 
мусор, который благодарные горожане уже приготовили для вас. Он скоро 
появится, ждите! 


І 


і 


Вы также можете отключить звук с помощью кнопки “ и показ пути с 
помощью кнопки ^ . 

Город ждёт - все на экологический субботник! 




20 А 






<* **} ^^ ^I 































































Твори, выдумывай, пробуй! 


Правильный лозунг 

На мой взгляд, этот вариант игры не только более «воспитательный», но и 
гораздо интереснее классического: сыграйте несколько «партий» - вам 
понравится! Подобным же образом вы можете наполнить новым смыслом 
и прочие известные игры, а приём с фоном в сетке пригодится вам в 
других проектах. 



Исходный код программы находится в папке Сотой. 


Факультатив 6. «Что наша «Жизнь»? - Игра!», 
или Клеточный автомат Джона Конвея 


Игру Жизнь - самый известный в мире клеточный автомат - придумал в 
1970 году математик из Кембриджского университета Джон Конвей. Как и 
все прочие клеточные автоматы, она моделирует развитие некой 
начальной популяции клеток в соответствии с немногочисленными 
законами (правилами] их существования. 


Законы Жизни 


Таковы суровые законы жизни. 

Или, короче выражаясь, 
жизнь диктует нам свои суровые законы. 

И. Ильф, Е. Петров, 
Золотой теленок 

Мир, или вселенная, в которой живут организмы, представляет собой 
бесконечную плоскую сетку, разделённую на квадратики - ячейки, клетки. 
Мы (или наша программа] в качестве Творца засеваем некоторые ячейки 
организмами, которые образуют начальное (нулевое] поколение. Через 
некоторое время в популяции происходят такие изменения: 

1. Каждая клетка (организм] имеет 8 соседних клеток по всем 
направлениям (вселенная бесконечна!]. Если пустая ячейка имеет 
трёх живых соседей, то в ней возникает новая жизнь. Обозначим это 
правило зарождения жизни так: В(огп]=3. 

2. Клетка погибает, если у неё слишком мало живых соседей (1] или 
слишком много (4,5,6,7,8]. 

3. Отсюда следует, что продолжает жить только клетка, имеющая 2-х 
или 3-х соседей. Это правило продолжения жизни записывается так: 
5(игѵіѵе)=2,3. 

Тут следует заметить, что время во вселенной изменяется дискретно и 
каждому моменту времени соответствует своя популяция клеток. При 
формировании следующего поколения учитываются все клетки, уже 
имеющиеся на поле (живые на этот момент], но не те, которые возникают 
вновь (рождающиеся в этот момент]. 

Как видите, правила жизни в клеточном мире очень просты, что отнюдь не 
мешает достаточно примитивным начальным популяциям образовывать 


очень сложные конфигурации клеток. Легко догадаться, что развитие 
жизни во вселенной определяется только количеством и взаимным 
расположением клеток в исходном состоянии. Найдено множество 
любопытных начальных структур клеток, но это не должно сдерживать 
ваши благородные порывы в создании новых миров! 

Кроме того, изменение начальной конфигурации клеток существенно 
зависит от законов существования организмов. Описанные выше правила 
относятся к классическому варианту игры, придуманному Конвеем. Но 
поскольку каждая клетка может иметь от 0 до 8 соседей, то значения В и 5 
также изменяются в этом диапазоне, причём В и 5 могут иметь и несколько 
значений, что даёт множество сочетаний этих параметров. Конечно, не все 
они дают интересные результаты, но, возможно, вы найдёте 
ошеломляющие примеры разнообразия жизни в разных вселенных! 

Ну, вот и всё об истории Жизни, пора и за дело браться! 


Как построить вселенную, или Даём жизни! 

Жизнь - это сложная штука, 
но эта сложная штука открывается просто, 

как ящик. 

Надо только уметь его открыть. 
Кто не может открыть, тот пропадает. 

И. Ильф, Е. Петров, 
Двенадцать стульев 


Сама вселенная с успехом может быть представлена нашим любимым 
компонентом ТОгаѵѵСгісІ. Единственное, что омрачает радость, 
ограниченные размеры компонента, а, значит, и нашей реализации 
вселенной. К сожалению, бесконечной сделать её не удастся в любом 
случае, поэтому протяжённые популяции клеток будут искажаться на 
границах мира. Избежать этого нельзя, но у нас имеется 2 варианта 
реакции на краевые эффекты: оставить мир плоским и игнорировать все 
клетки, уходящие за пределы компонента, либо свернуть плоскость в 
сферу и сделать мир «бесконечным», хотя и небольшим. В первом случае 
мы не только потеряем часть популяции, но и рискуем существенно 
исказить оставшуюся, поскольку исчезнувшие клетки могли бы дать 
новые организмы в видимой части вселенной. Во втором случае клетки, 
пересекающие границы поля, будут появляться с противоположной 


стороны и деформировать популяцию самым неожиданным образом. Как 
говорится, хрен редьки не слаще, но зато у игрока есть выбор... 

Максимальные размеры поля в этой версии такие: 


сопзб 

ЫАМЕ_РКОС = ' ЖИЗНЬ'; 
//размеры поля в клетках: 
РОЬЕ_ИІОТН = 75; // ширина 
РОЬЕ НЕІСНТ = 54;// высота 


Вы, конечно, можете сделать поле и больших размеров, но тогда его 
придётся прокручивать, чтобы обозреть всё происходящее в мире. 

Главное место на форме займёт сетка-поле\ 

Ыате = сідРоІе 
Соіог = сІВІаск 
СоІСоипѣ = 75 
КоѵСоип'Ь = 54 
Бе^аиІЪСоІШ-Сіиі = 8 
Бе^аиІ'ЬКоѵНеідІі'Ь = 8 
СгісіЬіпеИісІРЬ = О 

Ніп'Ь = | Левая кнопка - поставить, правая - убрать 

Прокомментировать уместно только цвет вселенной. Я выбрал чёрный не 
только потому, что и наша Вселенная того же цвета, но - главным образом 
- потому, что на чёрном фоне другие цвета выглядят более контрастными. 

В целом интерфейс программы может быть таким (Рис. 6.1). 



Рис. 6.1. Вселенная в начале Жизни 























































А это наше приложение в действии (Рис. 6.2) 



Рис. 6.2. Время пошло! 

Наш мир возникает вместе с созданием формы приложения: 


///////////////////////////////////////////////////////////// 
///////////////////////////////////////////////////////////// 
// ФОРМА // 

///////////////////////////////////////////////////////////// 
///////////////////////////////////////////////////////////// 
//СОЗДАТЬ ФОРМУ 

ргосесіиге ТРогшІ . РогтСгеа'Ье (Зепсіег : ТОЬіесЬ) ; 

ѵаг і: іпЪедег; 

Ьедіп 

//очистить поле: 

СІеагРоІе; 

//загрузить курсоры: 

Зсгееп.Сигзогз [сгКізі^ ] : = ЪоасіСигзог (ЪіпзЪапсе, ' кізІтд ' ) ; 
Зсгееп . Сигзогз [сгНапсі] := ЪоасіСигзог (ЪіпзЪапсе, 'ііапсГ ) ; 
сідРоІе. Сигзог :=сгНапсі; 

КапсіЗеесі:=6; //4 

//задать цвета клеток опр. возраста: 

АдеСоІог[0]:=СОЪОК_РДЗТО; 

АдеСоІог[1]:=СОЪОК_КЪЕТКА; 











































































Еог і:=2 Ьо МАХ_СОЪОК сіо АдеСоІог [ і ] : = КСВ (Капсіот (255) , 
Капсіот (255) , Капсіот (255)) ; 

//задать цвета шлейфа: 

ЬЪЗЫеіЕСЬапде (ЗеІЕ) ; 

//задать скорость игры: 

ЬЪОеІауСЬапде (ЗеІЕ) ; 

//максимальная продолжительность жизни клеток: 

МАХ_АСЕ:=МАХ_СОЪОК; 

ЬЪСоІог. шах :=МАХ_СОЬОК; 

//задать число цветов клеток: 

ЬЪСоІогСЬапде (ЗеІЕ) ; 

//русская раскладка клавиатуры: 

ЬоасЖеуЪоагсЩауоиЬ ('00000419', КЪЕ_АСТІѴАТЕ) ; 
епсі; 


Сначала он будет абсолютно чист: 


//ОЧИСТИТЬ ПОЛЕ 

ргосесіиге ТРогшІ. СІеагРоІе; 

ѵаг 

і, з : іпЬедег; 

Ьс, и с: іпЬедег; 

Ьедіп 

ІЕ Сате8ЕаЕиз='РЬАУ' ЕЬеп ехіЕ; 
пСеп :=0; 

зЕаЕизЪагІ. Рапеіз [ б ] . ЕехЕ : = ' Поколение : ' +іпЕЕозЕг (пСеп) ; 

Ьс: = сідРоІе. ВеЕаиІЕКоиНеідЬЕ; 

ис:= сідРоІе. ВеЕаи1ЕСо1Ѵ\ГісІЕ]і; 

сідРоІе . Сапѵаз . Вгизіі. Соіог : =СОЬОК_РОЗТО; 

Еог і: = 0 То РОЬЕ_ИІВТН-1 сіо 

Еог Л = 0 Со Р0ЬЕ_НЕІ6НТ - 1 сіо Ьедіп 

сідРоІе . Сапѵаз . ЕІІірзе (і*ис, ^ *ііс, і*ис+ис, ^ *ііс+ііс) ; 
тазРоІе[і,Л := ШМ_РИ5ТО; 
епсі; 

ѵзедоК1_іпЕід:=0; 

зЬаЬизЬагІ.Рапеіз[1] .ЬехЬ: = 1 Клеток : 0' ; 
сеіітоизе.х: =-1 ; 
сеіітоизе.у: =-1 ; 
епсі; 


В переменной пСеп мы будем хранить номер текущего поколения. Для 
начальной колонии это значение равно нулю : 


//номер поколения: 
пСеп: іпЬедег=0; 


Вся информация о текущем состоянии популяции отображается в 
компоненте ЗШШзВагІ Т51а * изВаг : 


АиЬоНіпѣ=Тгие 

НеідЬЬ=25 










Рапеіз: 



ТехЕ=Клеток: О 

Тех‘Ь=Х= О 
Тех‘Ь=У= О 

Техѣ=ОЖИДАНИЕ 

Тех*Ь=Поколение 


1лГісі^1п=2 30 
НісШі=7 О 
Ѵ\Гісі*Ыі—4 О 
ИісІЫі=4 0 
НісІЫі=8 0 
ЮісШі=60 
О ЮісШі=50 


31іо^Ніп-Ь=Тгие 


Текстовую информацию очень удобно выводить в нужную панель этого 
компонента. Так как все панели образуют массив, то достаточно указать 
только индекс панели в этом массиве. Например, так указывается номер 
текущего поколения: 

З'Ьа'ЬизЬагІ . Рапеіз [ б ] . СехС : = 1 Поколение : 1 +іп'Ы:оз'Ьг (пСеп) ; 

В нулевой панели выводятся подсказки, которые также появляются возле 
компонента, когда на нём останавливается курсор мыши. Если вы хотите, 
чтобы эти подсказки были разными, то напишите их с разделительной 
чертой: Очиститъ / Очиститъ поле. Подсказка до черты будет появляться у 
компонента, после черты - в строке состояния. 

В первой панели указывается число клеток в текущей популяции. Во 
второй и третьей - координаты мышки на поле, что облегчает рисование 
новых колоний. В четвёртой - состояние игры. В пятой - время 
формирования нового поколения. И в последней, шестой, - номер 
текущего поколения. 

После вывода информации мы очищаем игровое поле. Для этого в каждой 
клетке поля кистью цвета 

сідРоІе . Сапѵаз . ВгизЬ . Соіог : =СОЪОК_РОЗТО; 

мы рисуем маленькие кружки : 

сідРоІе . Сапѵаз .ЕІІірзе (і*ѵс^*Ъс, і*ѵс+ѵс, ^ *Ъс+Нс) ; 

Было бы проще полностью закрашивать клетки, но в этом случае 
отдельные «особи» сливаются в одну область и плохо различимы 
(конечно, их можно отделить друг от друга вертикальными и 
горизонтальными линиями сетки, но всё равно получится хуже...). 

















Параллельно мы заполняем массив константой М/М_РН5Т0, которая 
соответствует пустой клетке поля: 

тазРоІе [і, Л := ШМ_РЦЗТО; 

Объявим константы. 


сопз-ь 

//цвет пустой клетки на поле: 
СОЬОП._РП5ТО : ТСо1ог= сІВІаск; 

//цвет новой клетки фигуры на поле: 
СОЬОК_КЬЕТКА : ТСо1ог= сІШіібе; 
//пустая клетка в тазРоІе: 

ЫЦМ_РЦ5ТО = 0; 

//чёрная клетка в тазРоІе: 

ШМ КЬЕТКА = 1; 


Таким образом, клетки без организмов будут чёрными (они просто 
сливаются с чёрным фоном), с организмами - белые. 

Массив поля 


ѣуре ТРоІе = аггау[-1.. РОЪЕ_Ѵ\ГІРТН, -1.. РОЪЕ_НЕІСНТ] оЕ Іпбедег; 
//(добавляем по одной клетке по периметру поля) 

ѵаг 

//массивы, в кот. хранится копия поля: 

тазРоІе, шазРо1е2 : ТРоІе; 


мы задаём так, чтобы за его пределами (по периметру) была ещё одна 
клетка. В игре эти дополнительные клетки не участвуют, но облегчают 
формирование нового поколения, так как избавляют нас от лишних 
проверок. 

Последние две строки процедуры ТРогтІ.СІеагРоІе 


сеіітоизе .х:=-1; 
сеіітоизе .у:=-1; 


говорят о том, что курсор мыши находится за пределами поля. Эти 
координаты используются при рисовании исходной популяции: 


Ѵаг 

//координаты клетки с курсором: 
сеІІМоизе: ТРоіпб; 










Возвращаемся к процедуре ТРогтІ.РогтСгеаіе. Чтобы при рисовании 
курсор больше соответствовал своему назначению, будем изменять его 
форму. 


//загрузить курсоры: 

Зсгееп . Сигзогз [ сгКізІ: ^ ] : = ЪоасіСигзог (іііпзЪапсе, ' к:і з Іт □ ' ) ; 
Зсгееп . Сигзогз [сгНапсі] := ЪоасіСигзог (ЪіпзЪапсе, ' ЪапсГ ) ; 
сідРоІе . Сигзог : =сгНапсі; 


Форма курсора на игровом поле в обычном режиме (Рис. 6.3). 



Рис. 6.3. Обычный курсор 

В режиме рисования клеток на игровом поле курсор превращается в 
кисточку (Рис. 6.4). 



Рис. 6.4. Рисовальный курсор 

Нужно также позаботиться о константах-. 


сопз-ь 

//курсоры: 
сгНапсі : іпЪедег= 4; 
сгЗЪгеІка :іп1:едег= 5; 
сгЪказка: іп1:едег= 6; 
с^КізЪ^ :іпЪедег= 7; 


Все курсоры хранятся в файле ресурсов, который следует подключить к 
проекту: 


изез Метоііпіі:, ЪоасШпіЪ; 

{$К *.ЪГМ} 

{$К МуСигзогз.гез} 


В этой программе используются не все имеющиеся курсоры, так что вы 
можете выбирать любые! 

В классической игре клетки, как и мёд у Винни-Пуха, либо есть, либо нет, 
но если вам захочется разнообразия, то вы можете раскрашивать клетки в 
разные цвета: 









//максимальное число цветов клеток: 

МАХ_СОЬОК=15; 

МАХ 5НЬЕ1Р= 6; 


Первая константа задаёт максимальное число цветов живых клеток, 
вторая - мёртвых. В переменной МАХ_АСЕ 


//максимальная продолжительность жизни клеток: 
МАХ АСЕ: іпРедег; 


хранится число цветов живых клеток. Вы только должны иметь в виду, что 
клетки могут жить вечно, поэтому никаких цветов не хватит, чтобы их 
раскрасить в разные цвета, и в программе по достижении клеткой 
возраста МАХ_АСЕ она вновь становится «молодой» и окрашивается в цвет 
ЫУМ-КЬЕТКА. И так далее, по кругу. 


КапсіЗеесі:=6; //4 

//задать цвета клеток опр. возраста: 

АдеСоІог [0]:=СОЪОК_РЦ5ТО; 

АдеСоІог [1]:=СОЪОВ_КХЕТКА; 

Рог і:=2 Ро МАХ_СОЪОК сіо АдеСоІог [ і ]: = КСВ (Капсіот (255) , 
Капсіот (255) , Капсіот (255)) ; 

//задать цвета шлейфа: 

РЪЗЫеіРСІіапде (ЗеІР) ; 

//задать скорость игры: 

РЪОеІауСііапде (ЗеІР) ; 

//максимальная продолжительность жизни клеток: 

МАХ_А6Е:=МАХ_СОЪОК; 

РЬСоІог. шах :=МАХ_СОЪОК; 

//задать число цветов клеток: 

РЬСоІогСііапде (ЗеІР) ; 


До игры и по ее ходу вы можете изменять количество цветов живых 

ТТгаскВаг 

клеток движком ЬЬСоІог ******* : 


Ніп1:=Количество цветов | Максимальный возраст особи 

Мах=15 

Міп=1 


///////////////////////////////////////////////////////////// 
///////////////////////////////////////////////////////////// 
// движки // 

///////////////////////////////////////////////////////////// 
///////////////////////////////////////////////////////////// 

//ИЗМЕНИТЬ КОЛИЧЕСТВО ЦВЕТОВ КЛЕТОК 

ргосесіиге ТРогшІ. -ЬЬСоІогСІіапде (Зепсіег: ТОЬ ]есЬ) ; 

Ьедіп 

МАХ АСЕ :=РЬСо1ог.РозіРіоп; 










ІЫСоІог . СарЬіоп : = 'Число цветов = '+іпЬЬозЬг(МАХ_АСЕ); 
епсі; 


Значение переменной МАХ_АСЕ выводится в метке ІЫСоІог. 

Аналогично можно изменять и количество цветов умерших клеток (длину 

"О ТТгаскБаг 

шлейфа] движком іЬЗпіеі/ ******* : 

Ніпі^ Шлейф|Ушедшие поколения 

Мах=6 

Міп=0 


//ЗАДАТЬ ЧИСЛО ЦВЕТОВ В ШЛЕЙФЕ 

ргосесіиге ТРоппІ. ЬЪЗЫеіЕСЬапде (Зепсіег: ТОЬ^есЬ) ; 

ѵаг і^: іпЬедег; 

Ьедіп 

зЫеіЕ: =ЬЬЗЫеіЕ . РозіЬіоп; 
іЕ зЫеіЕ>0 ЕЬеп 

Тог і:= 1 Со зЫеіЕ сіо Ьедіп 
;І:=255 сііѵ (ЗЫеіЕ+1) * і; 

АдеСоІог [- (зіі1еіЕ-і+1) ] := КСВ (д , д , д ) 
епсі; 

ІЫЗЫеіЕ . СарЬіоп : = 'Длина шлейфа = ' +іпЕЕозЕг (зЫеіЕ) ; 
епсі; 


И последний движок - іЪИеІау - управляет скоростью смены поколений на 
экране: 

Ніп^ Задержка|Пауза между поколениями 

Мах=1О 
Міп=0 


//ЗАДАТЬ ЗАДЕРЖКУ ПРИ ВЫВОДЕ НОВОГО ПОКОЛЕНИЯ 

ргосесіиге ТРогтІ. ЬЬБеІауСЬапде (Зепсіег: ТОЬіесЬ) ; 

Ьедіп 

Ьеіау:=ЕЬ0е1ау.РозіЬіоп * 50; 

ІЫОеІау. СарЬіоп : = 'Задержка (мс) = '+іпЕЕозЕг(Оеіау) 
епсі; 


После создания поля на нём нет ни одной живой клетки. Такой мир 
развиваться не может, и мы должны произвести начальный посев. Сделать 
это можно двумя способами: нарисовать новую популяцию прямо на поле 
или загрузитъ готовую с диска (несколько заготовок вы найдёте в папке 
Рідиге]. 

Начнём с рисования. Нажмём кнопку мышки на поле: 


//НАЖАТЬ КНОПКУ МЫШКИ НА ПОЛЕ 










ргосесіиге ТРогшІ. сідРоІеМоизеОоѵт (ЗепЬег : ТОЬд есУ; ВиУУоп : 

ТМоизеВиУУоп; ЗЬіУУ: ТЗЬіУУЗУаУе; X, У: ІпУедег); 

ѵаг 

АСоІ, АКом: ІпУедег; 

Ьс, мс: ІпУедег; 

Ьедіп 

ІУ СатеЗУаУиз= 1 РЬАУ 1 УЬеп ехіУ; 

//изменить форму курсора: 
зсгееп. Сигзог :=ТСигзог(сгКізУ^); 
сідРоІе . Сигзог : =ТСигзог (сгКізУ^ ) ; 
зсгееп . Сигзог : =ТСигзог (сгВеУаиіУ) ; 

сідРоІе .МоизеТоСеІІ (х, у, АСоІ, АКом) ; 

//размеры клеток поля: 

Ьс : = сідРоІе . 0еУаи1УР.оѵ\ШеідЬУ; 
мс : = сідРоІе . ВеУаиіУСоіЭДісіУЬ; 

//если нажата левая кнопка - белая клетка: 

ІУ ззЬеУУ іп зЬіУУ УЬеп 
Ьедіп 

ІУ тазРоІе [АСоІ, АКом]= ШМ_РЬЗТО 
УЬеп іпс(ѵзедоК1_іпЕід); 

//занести в массив цвет клетки: 
тазРоІе [АСоІ, АКом] : =ШМ_КЬЕТКА; 

//закрасить клетку: 

сідРоІе . Сапѵаз . ВгизЬ . Соіог : =СОЬОР_КЬЕТКА; 

сідРоІе . Сапѵаз . ЕІІірзе (АСоі*мс, АКом*Ьс, АСоі*мс+мс, АР.ом*Ьс+Ьс) ; 
епсі; 

//если нажата правая кнопка - чёрная клетка: 

ІУ ззКідЬУ іп зЬіУУ УЬеп 
Ьедіп 

ІУ тазРоІе[АСоІ, АКом]= ШМ_КЬЕТКА 
УЬеп Ьес (ѵзедоК1_іпЕід); 

//занести в массив цвет клетки: 
тазРоІе [АСоІ, АКоте]:= ШМ_Р03Т0; 

//закрасить клетку: 

сідРоІе . Сапѵаз . ВгизЬ . Соіог : =СОЬОР_РиЗТО; 

сідРоІе . Сапѵаз .ЕІІірзе (АСоі*мс, АР.ом*Ьс, АСоі*мс+мс, АР.ом*Ьс+Ьс) ; 
епЬ; 

//теперь клеток в фигуре: 

зУаУизЬагІ.Рапеіз[1]. УехУ := ! Клеток : '+іпУУозУг(ѵзедоК1_іпЕід); 

епЬ; 


Курсор мышки превратится в кисточку, напоминая о наших намерениях. В 
клетку ( АСоІАКоѵѵ ) мы помещаем новый организм - если нажата левая 
кнопка мышки: 

тазРоІе [АСоІ, АРоѵ] : =ШЖ_КЪЕТКА; 

или убираем организм из клетки, если нажата правая кнопка: 


тазРоІе[АСоІ, АКоѵ]:= ШМ РИЗТО; 




Одновременно мы рисуем кружки белого или чёрного цвета и 
подсчитываем число клеток в популяции. 

Так можно «высаживать» организмы «поштучно», но иногда требуется 
засеять большие площади. Для этого, не отпуская кнопку мышки, 
перемещаем её по полю: 


//ПЕРЕМЕЩАТЬ МЫШКУ ПО ПОЛЮ - РИСОВАТЬ ФИГУРУ 

ргосесіиге ТРогшІ . сідРоІеМоизеМоѵе (Зепсіег : ТОЪ^есЬ; БЫТЬ: 

ТЗЫГЬЗЬаЬе; X, У: ІпЬедег); 

ѵаг 

АСоІ,АКом: ІпЬедег; 

Ьс, ѵгс : ІпЬедег; 

Ьедіп 

іі СатеЗЬаЬиз='РЬАУ' ЬЬеп ехіЬ; 

//размеры клеток поля: 

Ьс: = сідРоІе. ОеЬаиІЬКоиНеідЬЬ; 

ѵс : = сідРоІе. 0еЬаи1ЬСо11л7ісіЫі; 

сідРоІе . МоизеТоСеІІ (х, у, АСоІ, АКоѵ) ; 

зЬаЬизЬагІ. Рапеіз [2 ] . ЬехЬ : = ' Х= ' +іпЬЬозЬг (АСоІ) ; 

зЬаЬизЬагІ.Рапеіз[3].ЬехЬ:='У= '+іпЬЬозЬг(АКоѵ); 

//если нажата левая кнопка - белая клетка: 
іі (ззЬеЬЬ іп зЬіЬЬ) апсі ( (сеіітоизе.хОАСоІ) ог 
(сеіітоизе . уОАРоѵ) ) Ыіеп 
Ьедіп 

іі тазРоІе [АСоІ, АКом]= ЕП1М_РІ18Т0 Ыіеп іпс (ѵзедоК1_іпЕід) ; 
//занести в массив цвет клетки: 
тазРоІе[АСоІ, АКои]:=ШМ_КЬЕТКА; 

//закрасить клетку: 

сідРоІе . Сапѵаз . ВгизЬ. Соіог : =СОЬОК_КЬЕТКА; 

сідРоІе . Сапѵаз . ЕІІірзе (АСоІ*мс, АКоѵЫЬс, АСоІ*мс+ис, АКоѵЫЬс+Ьс) ; 
епЬ; 

//если нажата правая кнопка - чёрная клетка: 
іі (ззКідЬЬ іп зЬіЬЬ) апсі ( (сеіітоизе.хОАСоі) ог 
(сеіітоизе . уОАВом) ) Ыіеп 
Ьедіп 

іі тазРоІе[АСоІ, АКом]= №Ж_КЬЕТКА ЬЬеп бес (ѵзедоК1_іпЕід); 
//занести в массив цвет клетки: 
тазРоІе[АСоІ, АКои]:= ШМ_РИ5Т0; 

//закрасить клетку: 

сідРоІе . Сапѵаз . ВгизЬ. Соіог : =СОЬОК_РЫЗТО; 
сідРоІе . Сапѵаз . ЕІІірзе (АСо1*мс, АКоѵЫЬс, АСо1*ис+мс, 
АКоѵЫЬс+Ьс); 
епЬ; 

//теперь клеток в фигуре: 

зЬаЬизЬагІ.Рапеіз[1].ЬехЬ:=' Клеток : '+іпЬЬозЬг(ѵзедоК1_іпЕід); 

епсі; 




Процедура рисования живности практически та же самая, только 
дополнительно мы показываем в строке состояния координаты мышки на 
поле. 

Осталось отпустить кнопку мышки и закончить рисование: 


//ОТПУСТИТЬ КНОПКУ мышки 

ргосесіиге ТРогшІ . сідРоІеМоизеЧр (Зепсіег : ТОЬоесЬ; ВиЬЬоп: 
ТМоизеВиЬЬоп; 

БЫЛ: ТЗЬііЬЗЬаЬе; X, У: ІпЬедег); 

Ьедіп 

//изменить форму курсора: 
зсгееп . Сигзог : =ТСигзог (сгНапсі) ; 
сідРоІе . Сигзог : =ТСигзог (сгНапсі) ; 
зсгееп.Сигзог:=ТСигзог(сгБеіаиІЬ); 
епсі; 


Здесь всё понятно «без слов». 


Если вам потребуется убрать всю популяцию разом, воспользуйтесь 


кнопкой зЫСІеагРоІе 



(НіпІ= Очистить| Очистить поле): 


//КНОПКА Очистить поле 

ргосесіиге ТРогшІ . зЬРСІеагРоІеСІіск (Зепсіег : ТОЬоесВ); 
Ьедіп 

СІеагРоІе; 

епсі; 


Аналогично, только более радикально действует кнопка зЪШеѵѵРід 
(Ніпі =Новая фигура| Новая фигура): 


//КНОПКА Новая фигура 

ргосесіиге ТРогшІ. зЪЬНеѵРідСІіск (Зепсіег : ТО^есЬ); 

Ьедіп 

іі СатеЗЬаЬиз='РЬАУ' ЬЬеп ехіЬ; 

//название новой фигуры: 

ИатеЕід:= ' Ьетр '; 

сарЬіоп:= ЫАМЕ_РКОС + ' [' + ЫатеГід + '] 

//очистить поле: 

СІеагРоІе; 

//стереть комментарии: 
ігтМето.тетоі.Сіеаг; 
ігтМето.тетоі.ЗеЬГосиз; 

//номер поколения: 
пСеп :=0; 

зЬаЬизЬагІ.Рапеіз[ б ].ЬехЬ:=' Поколение : '+іпЬЬозЬг(пСеп); 

епсі; 













ОеІрНі в примерах, играх и программах 


Конечно, вам не терпится посмотреть, как же будет эволюционировать 
нарисованная вами популяция организмов. Что ж, это вполне законное 
желание. Сейчас мы и займёмся проблемами эволюции, но прежде мы 
должны позаботиться о настройке параметров окружающей среды, дабы 
получить именно то, что мы и предвкушаем увидеть. 

По умолчанию мир развивается по классическим законам, то есть для 
рождения новой клетки необходимо иметь трёх и только трёх соседей, а 
для продолжения жизни - двух или трёх. Эти данные уместно хранить в 
двух массивах: 


ѵаг 

//массив числа соседей, 

//необходимых для рождения клетки: 
Віг-Ыі: аггау[0..8] он Ьооіеап; 
//массив числа соседей, 

//необходимых для продолжения жизни: 
Ъ±^е: аггау[0..8] Ьооіеап; 


По правилам Жизни, ВігіН[3]=Тгие, ВігіН[0..2, 4..8]=РаІзе; Ы/е[2,3]=Тгие, 
Ы/е[0..1, 4..8]=Ра1зе. Чтобы игрок мог изменять правила игры, установим на 
форме по 9 кнопок (Рис. 6.5). 


Число соседей для рождения 


Число соседей для жизни 


Рис. 6.5. «Правильные» кнопки 

Первый ряд кнопок служит для назначения числа соседей, необходимых 
для зарождения новых клеток, второй - для продолжения жизни уже 
имеющихся клеток. Нажатые клетки показывают условия эволюции: 

зЪѢВіг'ЫіО . . зЬ , ЬВіг , Ыі8 
Ніп^Рождение | Рождение новой клетки 

А11 о ѵАІ Шр=Т г и е 

СгоирІп<іех=10 . . 18 

Бсжп=Га1зе (зЬ'ЬВіг'ЫіЗ Боѵп=Тгие) 

Тад=0..8 


//КНОПКИ Рождение новой клетки 

//Число соседей, необходимых для рождения новой клетки 

ргосесіиге ТРостпІ. зЬ'ЬВіг'ЫіОСІіск (Зепсіег: ТОЬ^есЬ) ; 

Ьедіп 

іі (зепсіег аз ТзреебЬиббоп) .сіомп 

бііеп ВігОЬ [(зепсіег аз ТзреебЬиббоп) . Рад] : =бгие 

















еізе ВігРЬ. [ (зепсіег аз ТзреесІЪиРРоп) .Рад] :=Ра1зе 
епсі; 


зЪРЬіРеО. . зЪРЫРе8 

Ніп^Сохранение | Клетка остаётся живой 

А1 1 о ѵАІ ИІр=Т г и е 
СгоирІп<іех=2 0 . . 2 8 

Бо»п=Га1зе (зЪРЬі^е2 зЪРЫРеЗ Бо»п=Тгие) 
Тад=0..8 


//КНОПКИ Сохранение - Клетка остаётся живой 
//Число соседей, необходимых для продолжения жизни 

ргосесіиге ТГогт1. зЪРЪіРеОСІіск (Зепсіег: ТОЬіесР) ; 

Ьедіп 

іР (зепсіег аз ТзреесІЪиРРоп) . Ъоѵт 
Рііеп ЪіРе [(зепсіег аз ТзреесІЪиРРоп) . Рад] : =Ргие 
еізе ЪіРе [ (зепсіег аз ТзреесіЬиРРоп) .Рад] :=Ра1зе 
епсі; 


Обычно все восемь соседних клеток учитываются при подсчёте живых 
соседей, однако вы можете самостоятельно назначить соседей для клеток. 
Установим на форме еще 8 кнопок: 

Нате=зЪРЗозесіШ А11оѵА11Пр=Тгие Боѵп=Тгие СгоирІп<іех=1 НіпР=Сосед 
Наше=зЬРЗозесЮ А11оѵА11Пр=Тгие Ооѵп=Тгие СгоирІпсіех=2 НіпР=Сосед 
Ыаше=зЬРЗозесіК0 А11оѵА1іир=Тгие Бсжп=Тгие СгоирІп<іех=3 НіпР=Сосед 
Наше=зЬРЗозесіЪ А11оѵА11Пр=Тгие Ооѵп=Тгие СгоирІпсіех=4 НіпР=Сосед 
Наше=зЬРЗозесіК А11оѵА11Пр=Тгие Ооѵп=Тгие СгоирІпсіех=5 НіпР=Сосед 
Ыаше=зЬРЗозесіЪВ А11оѵА1іир=Тгие Бсжп=Тгие СгоирІп<іех=6 НіпР=Сосед 
Нате=зЪР5озесШ А11оѵА11Пр=Тгие Ооѵп=Тгие СгоирІпсіех=7 НіпР=Сосед 
Нате=зЪР5озесіКЪ А11оѵА11Пр=Тгие Ооѵп=Тгие СгоирІп<іех=8 НіпР=Сосед 

Как видите, первоначально все кнопки нажаты, что полностью 
соответствует классическим правилам игры (Рис. 6.6). 



Рис. 6.6. «Соседские» кнопки 

Теперь давайте вспомним об ограниченности мира. В начале главы мы уже 
говорили об этом и придумали 2 способа конструирования вселенной в 
игре. Для выбора нужной геометрии пространства нам потребуются две 
кнопки-переключателя (Рис. 6.7). 



















Ыаше=зЬ'ЬГ1а'Ь Боѵп=Тгие СгоирІп<іех=9 Ніп^Плоский мир 
Ыаше=зЫ:5р1іеге Бо>т=Ра1зе СгоирІп<іех=9 Ніпѣ=Сферический мир 



Рис. 6.7. Искажаем пространство! 


Популяция развивается хоть и дискретно, но довольно быстро, так что 
бывает трудно уследить за сменой поколений. Конечно, движком іЪЭеІау 
можно изменить скорость развития жизни, но всё равно за одним 
поколением сразу же следует другое. Поэтому мы установим кнопку зЪіЗіер 


А1 1оѵАІ1Чр=Тгие 

Боѵт=Еа1зе 

СгоирІпсіех=3 О 

Ніп"Ь=Один шаг | Пошаговая игра 

Когда эта кнопка нажата 



//КНОПКА Пошаговая игра 

ргосесіиге ТРогтІ. зЪѢЗѢерСИск (Зепсіег: ТОЪ^есѣ) ; 

Ьедіп 

з0ер:= зЪОЗОер. сіоѵт 
епсі; 


переменная зіер равна ТШІЕ, и на экран выводится только одно следующее 
поколение. 


ѵаг 

//режим вывода поколений: 
//ТЕЛЕ - пошаговый 
//ЕАЪЗЕ - непрерывный 
зЛер: Ьоо1еап= ііаізе; 


А затем нужно снова нажать кнопку зЪіСо 


(НіпІ=Игра|Начать игру). 


//КНОПКА Начать игру 

ргосесіиге ТРогшІ. зЬѢСоСІіск (Зепсіег: ТОЪ^есѣ) ; 

ѵаг 

і, з : іпОедег; 
іпсіех: іпОедег; 

Ь, и: іпЛедег; 
































1: іте, 1:іте0 : зіпдіе; 

з: зЬгіпд; 

ііс, ѵгс: іпЬедег; 

//сформировать следующее поколение 
ргосесіиге ЫеѵгіЗеп; 

Ьедіп 

//подсчитать число соседей: 
іпсіех: =0; 

//левый верхний сосед: 

іі зЪЬЗозесіШ. Боѵт апсі (тазРоІе[і-1,^-1]>0) Ыіеп іпс (іпсіех); 
//верхний сосед: 

іі зЪЬЗозесШ. Боѵт апсі (тазРоІе [ і, ^-1 ] >0) Ыіеп іпс (іпсіех); 
//правый верхний сосед: 

іі зЪЬЗозесШЛ . Роѵт апсі (тазРоІе [і + 1, з-1 ] >0) Ыіеп іпс (іпсіех) ; 
//левый сосед: 

іі зЪЬЗозеЬЬ .Боип апсі (тазРоІе [ і-1, з ] >0) Ыіеп іпс (іпсіех); 
//правый сосед: 

іі зЬРЗозесіК. Роип апсі (тазРоІе[і+1,^]>0) Ыіеп іпс (іпсіех); 
//левый нижний сосед: 

іі зЬРЗозесіЪР. Роѵт апсі (тазРоІе [і-1, з +1 ] >0) Ыіеп іпс (іпсіех) ; 
//нижний сосед: 

іі зЪЬЗозесШ .Боип апсі (тазРоІе [ і, з +1 ] >0) Ыіеп іпс (іпсіех); 
//правый нижний сосед: 

іі зЪЬЗозесІЖ). Боѵт апсі (тазРоІе[і+1,^+1]>0) Ыіеп іпс (іпсіех); 
епсі; 

// скроллинг ПОЛЯ 
ргосесіиге зсгоіі ; 

ѵаг і_з^_з: іпЬедег; 

Ьедіп 

//копируем ТорКои —> РозЬЬазЬКои: 
іог і_з: =0 Ьо РОЪЕ_ИІРТН-1 сіо 

тазРоІе[і_з,РОЬЕ_НЕІСНТ]:=тазРо1е[і_з,0]; 

//копируем ЬазЬКои --> РгеТорКои: 

ІОГ і_з: =0 Ьо РОЬЕ_ИІЕТН-1 сіо // 

тазРоІе[і_з,-1]:=тазРо1е[і_з,РОЬЕ_НЕІСНТ-1]; 

//копируем ЬеіЬСоІ --> РозЬКідііЬСоІ: 

ІОГ ;і_з : =0 Ьо РОЬЕ_НЕІСНТ-1 сіо // 

тазРоІе[РОЬЕ_Ѵ\7ІЕТН,з_з] :=тазРо1е[0,д_з]; 

//копируем КідііЬ --> РгеЬеіЬСоІ: 
іог з_з:=0 Ьо РОЬЕ_НЕІСНТ-1 сіо // 

тазРоІе[-1,□_з]:=тазРо1е [РОЬЕ_И1ЕТН-1 ,з_з]; 

//копируем левую верхнюю угловую клетку: 
тазРоІе[РОЬЕ_ИІБТН,РОЬЕ_НЕІСНТ]:=тазРо1е[0,0]; 

//копируем правую верхнюю угловую клетку: 
тазРоІе[-1,РОЬЕ_НЕІСНТ]:=тазРо1е[РОЬЕ_ИІЕТН-1,0]; 

//копируем левую нижнюю угловую клетку: 

тазРоІе[РОЬЕ_ИІЕТН,-1]:=тазРо1е[0,РОЬЕ_НЕІСНТ-1]; 

//копируем правую нижнюю угловую клетку: 
тазРоІе [0,0] :=тазРо1е [РОЬЕ_ИЮТН-1, РОЬЕ_НЕІСНТ-1] ; 
епсі; 




Ьедіп 

іі СатеЗіаіиз= 'РЪАУ ЬЪеп ехіЪ; 

//игра началась: 

ОиЪзЪаЪиз( 1 РЪАУ 1 ); 

//число соседей, позволяющих продолжить жизнь: 
іог і:=0 Ъо 8 сіо 

Ъііе [і] := (ЕіпсіСотропепЪ ( 1 зЬЪЪііе 1 +іпЪЪозЪг (і) ) аз 
ТЗреесіВиЪЪоп) . сіоѵп; 

//число соседей, необходимых для рождения: 
іог і:=0 Ъо 8 сіо 

ВігЪЪ [ і ] : = (ЕіпсіСотропепЪ ( ' зЬЪВігЪЪ' +іпЪЪозЪг (і) ) аз 
ТЗреесіВиЪЪоп) . сіоѵп; 

//засечь начало игры: 

ЪітеО:=СеЪТіскСоипЪ() ; 

//размеры поля: 

Ъ: = РОЪЕ_НЕI6НТ - 1; 
ѵ:= Р0ЪЕ_ИЮТН-1; 

Ъс: = сідРоІе. ОеіаиІЪКоиНеідЪЪ; 
ѵс : = сідРоІе . БеіаиІЪСоІМісіЪЪ; 

// следующее поколение : 

гереаЪ 

іпс (пСеп) ; 

зЪаЪизЬагІ. Рапеіз [ б ] . ЪехЪ : = ' Поколение : ’+іпЪЪозЪг (пСеп) ; 
ѵзедоК1_іпЕід: =0; 

//если поле замкнутое, копируем крайние строки и столбцы: 
іі зЬЪЗрЪеге.Ъоѵт ЪЪеп зсгоіі; 

//просматриваем поле и заполняем вспомогательный массив: 

Еог ^ := 0 То Ъ сіо //- по ширине 

іог і := 0 Ъо и сіо Ьедіп //- по высоте 
ЫеѵСеп; 

іі тазРоІе[і,^]>0 ЪЪеп //- живая клетка -> стареет или 
умирает 

Ьедіп 

іі Ъііе[іпсіех] ЬЪеп //- продолжает жить 
Ьедіп 

іпс(ѵзедоК1_іпЕід); //- ещё одна клетка на поле 
іі тазРоІе[і,Л >= М^У_АСЕ ЬЪеп 

шазРо1е2[і,з]:= Ы1Ж_КЪЕТКА //- постаревшая клетка 
еізе тазРо1е2[і,Л :=тазРо1е [і, Л +1; 
епсі 

еізе //- стареет или умирает -> пустая клетка 

іі ЗЬ1еіі>0 іЬеп тазРо1е2[і,Л := -1 
еізе шазРо1е2 [і, Л := ШМ_Р05Т0; 

//закрасить клетку соотв. цветом: 

сідРоІе . Сапѵаз .ВгизЬ.Со1ог:= АдеСоІог [тазРо1е2 [ і, Л 1 ; 
сідРоІе . Сапѵаз . ЕІІірзе (і*ѵс,ЛЪс, (і+1)*ѵс, (□ +1) *]лс) ; 
епсі 




еізе //пустая клетка поля(или клетка шлейфа) 

Ьедіп 

іі ВігЬЬ [іпсіех] ЬЬеп //- рождается 
Ьедіп 

тазРо1е2[і, 3 ]:= ЫЬМ_КЪЕТКА; //- новорождённая клетка 
іпс(ѵзедоК1_іпЕід); 

//закрасить клетку соотв. цветом: 

сідРоІе . Сапѵаз .ВгизЬ.Со1ог:= АдеСоІог [тазРо1е2[і, 3 ]]; 
сідРоІе . Сапѵаз . ЕІІірзе (і*мс, 3 *Ьс, і*ис+ис, 3 *Ьс+Ьс) ; 
епсі 

еізе Ьедіп //- стареет или умирает -> пустая клетка 
шазРоіе2 [і, з ] := ШМ_Р05Т0; 
іі 8ЫеіЬ>0 Ыіеп 

іі тазРоІе[і,з]<0 Ыіеп Ьедіп 

тазРоіе2[і,з]:= тазРоІе[і, 3 ]-1; 
іі тазРо1е2[і,з]<-ЗНЬЕІЕ 
ЬЬеп тазРоіе2 [і, з ] := ШМ_РИЗТО 
еізе; 

//закрасить клетку соотв. цветом: 
сідРоІе . Сапѵаз . ВгизЬ . Соіог : = 

АдеСоІог[тазРо1е2[і, 3 ]]; 

сідРоІе . Сапѵаз . ЕІІірзе 
(і *ѵгс, з *Ьс, (і + 1 ) *ис, (з + 1 ) *Ьс) ; 
епсі 

еізе тазРо1е2 [і, з ] := ЕГІЖ_Р1І8Т0 //- пустая клетка -> 
цвет не меняет 

еізе Ьедіп //ЗЬ1еіі=0 

шазРо1е2 [і, з ] := ШМ_РОЗТО; 

іі тазРоІе[і,з]<0 ЬЬеп Ьедіп //- стереть следы 
сідРоІе . Сапѵаз . ВгизЬ. Соіог : = СОЬОК_Р113ТО; 
сідРоІе . Сапѵаз . ЕІІірзе (і*ис,з*Ьс, (і+1)*нс, (з+1)*Ьс) 
епсі; 
епсі; 
епсі; 
епсі; 

епсі; 

//копируем вспомогательный массив в основной: 
тазРоІе:= тазРо1е2; 

зіеер(Оеіау); 

//теперь клеток в фигуре: 

зЬаЬизЬагІ.Рапеіз[1] .ЬехЬ: = 1 Клеток : 1 +іпЬЬозЬг(ѵзедоК1_іпЕід); 

//время игры: 

Ьіте:=(СеЬТіскСоипЬ()-ЬітеО)/1000; 
зЬг(Ьіте: б :3,з); 

зЬаЬизЬагІ.Рапеіз.ІЬетз[5].ЬехЬ:=з + 1 з 1 ; 

//если была нажата кнопка ЗТОР, то закончить 
//формирование новых поколений: 
аррІісаЬіоп.РгосеззМеззадез; 
іі Ь1дЕхіЬ=Ьгие ЬЬеп Ьедіп 
ЫдЕхіЬ: =Ьа1зе; 

ОиЬзЬаЬиз(’ ОЖИДАНИЕ 1 ); 




ехір 

епсі; 

ипРіІ (ѵзедоК1_іпЕід=0) ог зРер; 

ОиРзРаРиз (' ОЖИДАНИЕ '); 
епсі; 


Эта процедура, безусловно, самая важная в программе - именно она 
производит все «манипуляции» с клетками текущей популяции. 

Сначала нужно определить, по каким законам будет развиваться жизнь: 


//число соседей, позволяющих продолжить жизнь: 

Дог і : =0 До 8 сіо 

ЪіРе [і] := (ЕіпсІСотропепР ( ' зЪРЪіРе ' +іпРРозРг (і) ) аз 
ТЗреесіВиРРоп) . сіоѵп; 

//число соседей, необходимых для рождения: 

Рог і:=0 Ро 8 сіо 

ВігРіі [ і ] : = (ЕіпсІСотропепР ( ' зЪРВігРіі ' +іпРРозРг (і) ) аз 
ТЗреесіВиРРоп) .сіоѵп; 


//если поле замкнутое, копируем крайние строки и столбцы: 
ІР зЬРЗрЬеге . Ботлш РЬеп зсгоіі; 


Затем в цикле 

// следующее поколение: 

гереаР 

ипріі (ѵзедоК1_іпЕід=0 ) ог збер; 
ОиРзРаРиз('ОЖИДАНИЕ'); 


генерируются новые поколения клеток - до тех пор, пока колония не 
вымрет. Другая возможность окончания цикла - активный пошаговый 
режим; в этом случае процедура завершается и переходит в режим ввода 
команд уже после формирования первого поколения. Вы также можете 
«насильственно» закончить работу процедуры, если нажмёте кнопку 


Л 

зЪіЗіор 


(Ніпі =Остановить|Остановить игру]: 


//КНОПКА Остановить игру 

ргосесіиге ТРогшІ . зЬРЗРорСІіск (Зепсіег: ТОЬ^есР) ; 

Ьедіп 












іі. СатеЗРаРизО' РЬАУ РРеп ехір; 
РІдЕхіР: =Ргие 
епсі; 


В этой процедуре-обработчике переменной /ІдЕхіі присваивается 
значение ТШІЕ-. 


ѵаг 

//=ТКЛЕ - остановить игру: 
ЕІдЕхіЕ: Ъоо1еап= Еаізе; 


При формировании нового поколения в процедуре ТЕогтІ.зЪіСоСІіск 
проверяется эта переменная, и как только она становится равной ТРШЕ, 
процедура завершается: 


аррІісаРіоп . РгосеззМеззадез; 
ІР Р1дЕхіР=Ргие РРеп Ьедіп 
РІдЕхіР :=Ра1зе; 

ОиРзРаРиз (’ ОЖИДАНИЕ 1 ); 
ехір 
епсі; 


Обратите также внимание на переменную СатеЕСаСиз: 


ѵаг 

СатеЗ'Ь.а'Ьиг : зРгіпд=' ' ; 


Она отражает текущее состояние программы, которое анализируется при 
нажатии кнопок. Если программа находится в состоянии ожидания ввода 
команд, то они выполняются. Если работает игровая процедура, то все 
попытки вмешательства в эволюцию игнорируются. 

Для каждой клетки поля в процедуре ЫеѵѵСеп 


//сформировать следующее поколение 

ргосесіиге Иеѵ/Сеп ; 


мы подсчитываем в переменной іпсіех количество соседей и поступаем в 
соответствии с законами жизни. Если Ы/е [іпсіех] =ТРШЕ и в клетке 
находится живая особь ( тазРоІе[і,і]>0 ), то она продолжает жить, но стареет 
(клетки от старости не умирают, а только окрашиваются в другой цвет, 
чтобы было удобнее наблюдать за развитием популяции). В противном 
случае особь умирает, оставляя после себя пустую, чёрную клетку (если 
игрок задал положительную длину шлейфа, то клетка будет «чернеть» 












постепенно, хотя умрет мгновенно; причина здесь та же, что и при 
старении клеток): 


ШМ_РІІ5Т0; 

//закрасить клетку соотв. цветом: 

сідРоІе . Сапѵаз .ВгизЬ.Со1ог:= АдеСоІог [тазРо1е2[і,Л]; 
сідРоІе . Сапѵаз . ЕІІірзе (і*мс,ЛЬс, (і + 1) *ѵс, (з+1)*Ьс); 


Если ВігСЬ[іпсІех] =ТШЕ и клетка пустая , то в ней возникает новая жизнь: 


//закрасить клетку соотв. цветом: 

сідРоІе . Сапѵаз .ВгизЬ.Со1ог:= АдеСоІог [тазРо1е2[і,Л]; 
сідРоІе . Сапѵаз .ЕІІірзе (і*ѵс, ^ *Ъс, і*ѵгс+ѵгс, ^ *Ьс+Ьс) ; 


Здесь важно учесть уже умершие клетки, которые остаются на экране в 
качестве шлейфа. С каждым новым поколением они уходят всё дальше и 
дальше в небытиё и по достижении установленной длины шлейфа 
исчезают навсегда, что по-своему очень печально... 

И последнее замечание. Поскольку клетки нового поколения рождаются и 
умирают одновременно, то мы ничего не можем изменить в массиве 
тазРоІе[] с текущим поколением, пока не просчитаем следующее. Поэтому 
новую популяцию следует формировать в дополнительном массиве 
тазРоІе2[ ], а затем целиком скопировать в основной: 


//копируем вспомогательный массив в основной: 
шазРо!е:= шазРо!е2; 


Как видите, всё достаточно просто, а было бы ещё проще, если бы не 
раскрашивание стареющих и умерших клеток в разные цвета... 

Игровой статус отображается внизу, в строке состояния: 


///////////////////////////////////////////////////////////// 
///////////////////////////////////////////////////////////// 
// СТРОКА СОСТОЯНИЯ // 

///////////////////////////////////////////////////////////// 
///////////////////////////////////////////////////////////// 

ргосесіиге ТРогшІ . ОиЪЗ'Ьа'Ьиз (з : З'Ьгіпд) ; 

Ьедіп 

СатеЗ'Ьа'Ьиз: =з; 

З'Ьа'ЬизЬагІ . Рапеіз [ 4 ] . і:ехі::= СатеЗ'Ьа'Ьиз 
епсі; 


Свои соображения по поводу новой фигуры (популяции) вы можете 
записать в форм е/гтМето (Рис. 6.8). 










ОеІрНі в примерах, играх и программах 



Рис. 6.8. «Замечательная» форма 

Она появляется справа от главного окна приложения при старте 
программы. Предполагается, что ваши комментарии будут на русском 
языке: 


//русская раскладка клавиатуры: 
ЪоасіКеуЬоагсіЪауои'Ь ('00000419', КЪГ_АСТІѴАТЕ) ; 


Эту форму можно свернуть, нажав на ней кнопку зЪіМіпітіге 1=1 
(НіпІ=Свернуть| Свернуть окно), а при необходимости вновь возвратить на 


экран кнопкой зЪіМето 


(Ніп1:=Комментарий| Развернуть комментарий 


к фигуре), которая находится на главной форме приложения (можно и 
просто дважды щёлкнуть по заголовку свёрнутой формы): 


//КНОПКА Развернуть комментарий к фигуре 

ргосесіиге ТРогшІ . зЬШешоСІіск (Зегкіег: ТОЪ^есѣ) ; 

Ьедіп 

ЕгтМето . ИіпсіоѵЗ'Ьа'Ье : =ѵзЫогта1 
епсі; 


Ваши записи хранятся в компоненте Метоі 


ТМето 


(НіпІ^Комментарий | 


Комментарии к фигуре) и будут записаны в файл вместе с фигурой. 


Кроме возможностей по редактированию текста, предоставляемых самим 
компонентом, можно добавить ещё и полное стирание текста, которое 

производится при нажатии на кнопку зЬЬСІеаг — (НіпІ=Очистить| 
Очистить): 


ітрІетеп'Ьа'Ьіоп 
изез ІіРеипіО; 




































































{$К *.ОГМ} 

ргосесіиге Т^стпМешо . зЫСІеагСІіск (Зепсіег : ТОЬ^есЬ) ; 

Ьедіп 

ЬгтМето. тетоі . Сіеаг ; 

ЬгтМето . тетоі. ЗеЬГосиз 
епсі; 

ргосесіиге Т^гтМето. зЬШіпітігеСІіск (Зепсіег: ТОЬ^есЬ) ; 

Ьедіп 

ігтМето . ИіпсіоѵЗЬаЬе : =ѵзМіпіті гесі 
епсі; 


Чтобы записать всю информацию о популяции, нужно нажать кнопку 

В 

зЪіЗаѵеРід (НіпІ= Записать|Записать фигуру). Как обычно в таких 

случ аях, мы добавляем для этого на форму компонент ЗаѵеОіаІодІ 

У ТЗаѵеОіаІод 


//КНОПКА Записать фигуру 

ргосесіиге ТРогшІ . зЪЕЗаѵеРідСІіск (Зепсіег: ТОЬ ]ес*Ь) ; 

ѵаг 

Е: ЕехЕЕіІе; 

Еп,з: зЕгіпд; 
і ,^ : іпЕедег; 

Ьедіп 

іЕ 0ате5ЕаЕиз= 1 РЬАУ 1 ЕЬеп ехіЕ; 
заѵесііаіоді. РеЕаиІЕЕхЕ : = 1 ЕхЕ 1 ; 

заѵесііаіоді. ЕіІЕег : = 1 Фигуры (*.' + ехЕ + 1 ) | * . ' + ехЕ; 
заѵесііаіоді. ЕіІЕегІпсіех: =1; 

з:=ехЕгасЕЕі1ераЕЬ(аррІісаЕіоп.ехепате)+ ! ЕІСІЖЕ\'; 
заѵесііаіоді .ІпіЕіа1Еіг:= з; 

заѵесііаіоді. ТіЕіе : = 1 Запишите фигуру на диск 1 ; 
заѵесііаіоді. Еііепате : = КатеЕід; 
іЕ поЕ заѵесііаіоді. ЕхесиЕе ЕЬеп ехіЕ; 

Еп:= заѵесііаіоді. Еііепате; {имя конечного файла} 

ЫатеЕід:=Еп; 
аззідпЕНе (Е, Еп) ; 
гемгіЕе (Е) ; 

//записать фигуру: 

мгіЕеІп (Е,ѵзедоК1_іпЕід); //- число клеток в фигуре 

Еог □ : =0 Ео РОЬЕ_НЕІ0НТ-1 сіо //- по всем строкам поля 
Еог і:=0 Ео РОЬЕ_Ѵ\[ІЕТН-1 сіо //- по длине строки 

іЕ тазРо1е[і] [д ] >0 ЕЬеп Ьедіп //- живая клетка -> записать 
координаты 

мгіЕе (Е,і); мгіЕе (Е, ' '); мгіЕеІп (Е^); 

епсі; 

//записать вид вселенной: 
іЕ зЬЕЕІаЕ. сіоѵт 
ЕЬеп 1:=1 













еізе і:= 0 ; игібе (б,і); игібе (б,' '); 

іб зЪбЗрЬеге . боші 
бЬеп і: =1 
еізе і:= 0 ; 
игібеіп (б, і) ; 

//записать соседей: 
іб зЪбЗозесіШ. сіоѵт 
■Ыіеп і:=1 
еізе і:= 0 ; 
игібе ( 1 , і) ; 
игібе ( 1 , ' ' ) ; 

іб зЪбЗозесЮ. сіоѵт 
■Ыіеп і:=1 
еізе і:= 0 ; 
ѵгібе ( 1 , і) ; 
игібе ( 1 , ' ' ) ; 

іб зЪбЗозебКЛ . сіоѵт 
■Ыіеп і: =1 
еізе і:= 0 ; 
ѵгібе ( 1 , і) ; 
ѵгібе ( 1 , ' ' ) ; 

іб зЪбЗозебЪ . сіоѵт 
■Ыіеп і: =1 
еізе і:= 0 ; 
игібе ( 1 , і) ; 
ѵгібе ( 1 , ' ' ) ; 

іб зЪбЗозесІК. сіоѵт 
■Ыіеп і: =1 
еізе і:= 0 ; 
игібе ( 1 , і) ; 
ѵгібе ( 1 , ' ' ) ; 

іб зЪбЗозебЪО . сіоѵт 
■Ыіеп і:=1 
еізе і:= 0 ; 
игібе ( 1 , і) ; 
игібе ( 1 , ' ' ) ; 

іб зЪбЗозесШ. сіоѵт бЬеп і:=1 
еізе і:= 0 ; игібе (б,і); 
игібе ( 1 , ' ' ) ; 

іб зЪбЗозебКБ . сіоѵт 
■Ыіеп і:=1 
еізе і:= 0 ; 
ѵгібеіп ( 1 , і) ; 

//записать правило рождения клеток - соседей, необходимых для 
рождения: 

бог 1: =0 бо 8 сіо Ьедіп 

іб ( (РіпсІСотропепб ( 'зЪбВігбб'+іпббозбг(і)) аз 
ТЗреесіВиббоп) . сіоѵп ) 

■Ыіеп ^ : =1 
еізе ^:= 0 ; 
ѵгібе (б, з); 
мгібе ( б, ' ' ) ; 

епб; 










игібеіп ( 5., ' ' ) ; 

//записать правило выживания клеток - соседей, позволяющих 
продолжить жизнь 

іог і : =0 Ьо 8 сіо Ьедіп 

ІЬ ( (РіпсІСотропепІ: ( ' зЪЬЪііе '+іпЬЬо 8 І:г (і) ) аз 
ТЗреесіВиЬЬоп) . сіоѵп) 

Ыіеп з:=1 
еізе ;і :=0; 
ѵгіЬе (і, з ) ; 
мгібе ( 5., ' ' ) ; 

епсі; 

ѵгібеіп (і, 1 1 ) ; 

//записать макс, возраст - количество цветов, обозначающих 
возраст: 

ѵгібеіп ( і,ЬЪСоІог.розібіоп ); 

//записать шлейф - количество цветов, обозначающих погибшие 
поколения: 

ѵгібеіп ( і, ЬЪЗЫеіЬ .розібіоп ); 

//записать задержку: 

ѵгібеіп (і,бЬбеІау.розібіоп ); 

//записать комментарий к фигуре: 
з:=бгтМето.тетоі.Ъіпез.Техб; 
іб з<>’' бЬеп Ьедіп 
з:= 1 // 1 +з; 
игібеіп (б,з) 
епсі; 

сіозебііе ( б) ; 

// збюшпеззаде (іпЬЬозбг(і )+ 1 1 +іпЬЬозбг( і )); 

//вывести в заголовок название фигуры: 
сарбіоп:= ЫАМЕ_РКОС + ' [' + ЫашеЕід + 

КебгезЬ ; 
шеззадеЬеер (0) 
епсі; //Заѵе 


По умолчанию данные записываются в папку Рідиге и имеют расширение 

т 


Ѵаг 

//расширение файлов с фигурами: 
ехб: збгіпд='Ііб'; 


Если текущая популяция ещё не сохранялась на диске и имя для неё не 
выбрано, то файл будет называться іетр. Это обычный текстовый файл, 
поэтому конструировать и редактировать фигуры можно в любом 
текстовом редакторе. Например, для популяции (Рис. 6.9) 







Рис. 6.9. Образцовая популяция 

файл на диске будет таким: 

70 

40 16 
31 35 

1 о 

11111111 

000100000 

001100000 

1 

о 

10 

//Тестовая популяция. 



Сначала указывается общее число всех особей в популяции, а затем 
координаты всех клеток с живыми организмами. Сохраняется также 
информация обо всех настройках программы, о которых мы уже подробно 
говорили. Завершает файл комментарий из Метоі. Обратите внимание, 
что комментарий должен начинаться как и в йеІрЬі, с двух слэшей. 


Ничего нового и трудного в этой процедуре для вас нет, но вы должны 
иметь в виду, что на диске сохраняется текущая популяция из массива 
тазРоІе []. Вероятно, не менее важно сохранить начальную популяцию и 
номер текущего поколения. Для этого следует завести ещё один массив 
того же типа, что и тазРоІе : 

ѣуре ТРоІе = аггау[-1..РОЬЕ_ИЮТН,-1.. Р0ЪЕ_НЕІ6НТ ]оі Іпѣедег; 

В начале процедуры ТРогтІ.зЬіСоСІіск нужно скопировать массив с 
исходной популяцией в новый массив. Но здесь есть одна тонкость: в 
пошаговом режиме этот массив будет переписываться, так что, если вас 
интересует именно самая первая популяция, то заведите ещё и 
логическую переменную, которая будет сигнализировать о том, что массив 
с исходной популяцией уже сформирован. 







Теперь разберём обратную процедуру - загрузку ранее сохранённой 


фигуры из файла. Для этого служит кнопка зЪіЬоасІРід 
Загрузить | Загрузить фигуру): 


(НіпІ= 


//КНОПКА Загрузить фигуру 

ргосесіиге ТРогтІ. зЬЫюасіРідСІіск (Зепсіег: ТОЬ^есЬ) ; 

ѵаг 

з, з2: зЬгіпд; 

ЬоипЬ: іпЬедег; 
і : іпЬедег; 

ЗеагсЬКес: ТЗеагсЬКес; 

Ьедіп 

ІЬ СатеЗЬаЬиз='РЬАУ' ЬЬеп ехіЬ; 

//сформировать список файлов в папке ЕІСІЖЕ: 
з : =ехЬгасЬЫ1ераЬЬ (арріісаЬіоп . ехепате) + 1 ЕІ6ЫКЕ\* . '+ ехЬ; 
Ьоипсі: = ЕіпсіЕігзЬ (з,ЬаАпуЕііе,ЗеагсЬКес); 

ЬгтЬоасІ. ІізЬЬохІ. іЬетз . Сіеаг; 
ѵДііІе Ьоипсі=0 сіо Ьедіп 
з:=5еагсЬКес. пате ; 
з 2 : =' '; 
і : =1; 

иЬіІе (з[і] <>'.') апсі (і<=1епдЬЬ(з)) сіо Ьедіп 
з2:=з2 +з[і]; 
іпс (і) 
епсі; 

ЬгтЬоаЬ .ІізЬЬохІ.іЬетз. асМ (з2); 

Ьоипсі: = РіпсШехЬ (ЗеагсЬКес) 
епсі; 

ЕіпсіСІозе (ЗеагсЬКес) ; 
патеЕід: = ' ' ; 

//показать форму со списком фигур: 

ЬгтЬоаЬ . зЬоѵлпосіаІ ; 

ІЬ патеЕід='' ЬЬеп ехіЬ; //фигура не выбрана 

//показать в заголовке название выбранной фигуры: 

Ьогті.сарЬіоп:= ЫАМЕ_РКОС + ' [' + ЫатеЕід + '] 

//в информационной строке вывести число клеток в фигуре: 
зЬаЬизЬагІ . Рапеіз[1].ЬехЬ:=' Клеток : '+іпЬЬозЬг(ѵзедоК1_іпЕід); 

//скопировать комментарии к загруженной фигуре: 

ЬгтМето . тетоі. Ьіпез . ТехЬ : =ЬгтЬоасі. тетоі. Ьіпез . ТехЬ; 

//поколение 0: 
пСеп :=0; 

зЬаЬизЬагІ.Рапеіз[ б ].ЬехЬ:=' Поколение : '+іпЬЬозЬг(пСеп); 

ОиЬРоІе; 

епсі; //зЬЬЬоасіЕідСІіск 


Очень просто загрузить фигуру на поле, но как выбрать нужную из 
множества сохранённых на диске? Постараемся облегчить игроку 






проблему выбора. Для этого нам потребуется новая форма /’гтЬоасІ (Рис. 

6 . 10 ). 


Вог<1ег5 , Ьу1е=Ьз5іпд1е 
Сар'Ьіоп= Выберите фигуру 
Розі'Ьіоп=роМаіпГогтСеп'Ьег 



Рис. 6.10. Загрузочная форма 

На ней мы расположим необходимые элементы управления. 

В список ЫэіВохІ мы будем добавлять в алфавитном порядке ( 5огіей=Тгие ) 
названия всех файлов из папки РІСІІКЕ, имеющих заданное расширение. 

В компоненте Метоі ( 5сгоІІВаг5=55Ѵегі:ісаІ ) мы будем выводить 
комментарий к выбранной фигуре, подобно тому, как мы это делали в 
главном окне. 

То же самое относится и к сетке йдРоІе, которая полностью аналогична 
сетке, отображающей игровое поле, только размер клеток у неё вдвое 
меньше: 

Ое^аи1'ЬСо1Ш.сі'Ыі=4 
Бе^аиі •ЬКсжНеід1'і'Ь= 4 

Метка ЬаЪеІІ показывает число клеток в фигуре. 

Кнопка зЪЫоасІ (СарІіоп=Загрузить) загружает выбранную фигуру. 

Кнопка эЬіСапсеІ (СарІіоп=Отмена) возвращает в вызывающую процедуру 
пустое имя файла - новая фигура не загружена! 

















































































//ОТМЕНИТЬ ЗАГРУЗКУ ФИГУРЫ 

ргосесіиге Т^гшЬоасІ. зЬѢСапсеІСІіск (Зепсіег : ТОЪ^есѣ) ; 


Ьедіп 

патеЕід := 
сіозе 
епсі; 

I Т . 

г 


іі патеЕід=' 

1 ЬЪеп ехіб; //фигура не выбрана 


После того как процедура ТРогтІ.зЬНоасіРідСиск составит список всех 
файлов с фигурами: 

ГгтЬоасі . ІізЬЬохІ . ібетз . асісі (з2) ; 

на экране появляется форма /гтЬоаФ. 


патеЕід: = ''; 

//показать форму со списком фигур: 

ГгтЬоаб . зЬоѵлпосіаІ ; 

ІГ патеЕід='' Ыіеп ехіб; //фигура не выбрана 


В ней и нужно выбрать нужный файл из списка (Рис. 6.11]. 



Рис. 6.11. Выбираем исходное поколение 

Для этого, как обычно, нужно нажать левую кнопку мыши на названии 
файла: 


//ВЫБРАТЬ ФИГУРУ ИЗ СПИСКА 
























ргосесіиге ТЬгтІ.оасі. ІіізЬВохІМоизеБоѵт (ЗепЬег : ТОЪ^есЪ; ВиЪЪоп: 
ТМоизеВиЪЪоп; 

ЗіііЬЪ: ТЗЪіЬЪЗЪаЪе; X, У: ІпЪедег); 

Ьедіп 

ЪіЬеЪпіЪ. патеЕід: = 

ЬгтЪоасі. ЪізЪВохІ. ІЪетз [ІізЪЬохІ. ІЪетІпсІех] + ' . ' + ехЪ; 

ѴіеѵЕід; 

епсі; 


После чего новой фигуре присваивается имя выбранного файла, а сама 
фигура изображается на поле: 


//ПОКАЗАТВ ВЫБРАННУЮ ФИГУРУ 

ргосесіиге ѴіеѵПГід; 

ѵаг 

з: зЪгіпд; 

Г: ТехЪЕіІе; 
і: ІпЪедег; 
х, у: ІпЪедег; 
агеа: ЪКесЪ; 

Ьедіп 

з:=ехЪгасЪЬі1ераЪЬ (аррІісаЬіоп.ехепате) + 'ЕІСЫКЕ\'; 

ЫатеЕід:=з+патеГід; // - полный путь к фигуре 

{$і-} 

АззідпЕіІе(Е,ЫатеЕід); 

КезеЪ (Г); 

{$і+} 

ІЬ ІОКезиІЪОО ЪЪеп Ьедіп {ошибка при загрузке файла} 

аррІісаЬіоп .МеззадеВох ('Такой фигуры нет !',ЫАМЕ_РКОС, МВ_ОК); 
ехіЬ 
епсі; 

//очистить поле: 

СІеагРоІе; 

//и комментарии: 

ЬгтЪоасі.тетоі.Сіеаг; 

//считать количество клеток в фигуре: 

Кеасі1п(Е, ѵзедоКІ) ; 

//показать на экране: 

ЬгтЪоасі. ІаЬеІІ. СарЬіоп : = 'Клеток - ' + іпЬЬозЬг (ѵзедоКІ) ; 

//считать фигуру: 

Ьог і:=1 Ьо ѵзедоКІ сіо Ьедіп 

//считать координаты очередной клетки: 

Кеасііп (Е, х, у) ; 

//занести их в массив: 
тазРо1е2[х,у]: =ШМ_КЪЕТКА; 

//и вывести на поле: 

ЬгтЪоасі. сідРоіе . Сапѵаз . ВгизЪ. Соіог : =СОЪОК_КЪЕТКА; 
агеа : =ЬгтЪоасі. сідРоіе . СеІІКесЬ (х, у) ; 

ЬгтЪоасі. сідРоіе . Сапѵаз . ЕіІІКесЬ (агеа) ; 
епсі; 






//считать вид вселенной: 

Кеасііп (1, Ріа*:, ЗрЬеге) ; 

//считать соседей: 

Кеасііп (1, ЗозесіШ, ЗозесШ, ЗозебКі!, ЗозебЬ, ЗозесіК, ЗозебЬО, ЗозесШ, Зозесі 
КБ) ; 

//считать правило рождения клеток - 
//соседей, необходимых для рождения: 

Ног і:=0 бо 8 сіо Кеасі (б, ВігбЬ [ і ] ) ; 

//считать правило выживания клеток - 
//соседей, позволяющих продолжить жизнь: 
бог і:=0 бо 8 сіо Кеасі (б, Ыбе [ і ]) ; 

//считать макс, возраст: 

Кеасііп (б,Аде) ; 

//считать шлейф - количество цветов, 

//обозначающих погибшие поколения: 

Кеасііп (б,_зЬ1еіб) ; 

//считать задержку: 

Кеасііп (1, беіау) ; 

//считать комментарий к фигуре: 

О . — » » . 

о . , 

ѵЛіііе поЪ еоЬ (Ь) сіо Ьедіп 

Кеасііп (Г, 8 ); //- считать строку из файла 
//комментарий к фигуре? 

іЬ ( (ІепдЪЪ (з)> 1 ) апсі (з [ 1 ] =' / ') апсі (з [ 2 ] = '/') ) 

ЪЪеп Ьедіп //- комментарий 
з:=сору(з,3, ІепдЪЪ (з)); 

ЬгтЪоасі .тетоі.Ъіпез . ТехЪ : =з 
епЬ 
еізе 

ЬгтЪоасі .тетоі .Ъіпез . ТехЪ : =ЪгтЪоасі .тетоі .Ъіпез . ТехЪ+#10+з 
епЬ; 

//закрыть файл: 
сіозеіііе( Ь ) ; 
епЬ; 


Процедура очистки поля от предыдущей фигуры: 


//ОЧИСТИТЬ ПОЛЕ 

ргосесіиге СІеагРоІе; 

ѵаг 

і,□ : іпЪедег; 

Ьедіп 

ЪгтЪоаЬ . сідРоіе . Сапѵаз . ВгизЪ. Соіог : =С0Ъ0К_РЪІЗТ0; 

ЪгтЪоасі. сідРоІе . Сапѵаз . ЕіІІКесЬ (ЪгтЪоасі. сідРоІе . СІіепЬКесЬ ) ; 
Гог і := 0 То Р0ЪЕ_ИІБТН-1 сіо 

Ъог з := 0 Ьо РОЪЕ_НЕ16НТ - 1 сіо 
тазРо1е2[і,Л :=ШМ_РЦ5Т0; 

//клеток в фигуре: 
ѵзедоКІ:=0; 






РгтЬоасІ. ІаЬеІІ . СарРіоп : = 'Клеток - О'; 
епб; 


Мы подробно разобрали процесс сохранения файла, поэтому загрузка 
файла не должна вызвать у вас вопросов. Заметьте только, что клетки 
фигуры загружаются во вспомогательный массив тазРо1е2\ 


ѵаг 

тазРо1е2: ТРоІе; 
ѵзедоКІ: іпРедег; 

Пар, ЗрЬеге: іпРедег;//Ьооіеап; 

ЗозебШ, ЗозесШ, ЗозебБШ, ЗозебЬ, ЗозебК, ЗозесіЪР, ЗозесШ, ЗозебВБ : 
іпРедег; 

ВігРЬ: аггау[0..8] оР іпРедег; 

ЬіРе: аггау[0..8] оР іпРедег; 

Аде: іпРедег; 

Реіау: іпРедег; 

_зЬ1еіР: іпРедег; 


Далее вы можете выбрать в списке любой другой файл, отменить загрузку 
новой фигуры или загрузить выбранную фигуру, если она вам 
понравилась: 


//ЗАГРУЗИТЬ ФИГУРУ 

ргосесіиге Т^гшЬоасі. зЬРЬоасіСІіск (Зепсіег: ТОЬ^есР.) ; 

ѵаг і: іпРедег; 

Ьедіп 

//число клеток в фигуре: 
ѵзедоК1_іпГід:=ѵзедоК1; 

//скопировать массив поля с выбранной фигурой: 
тазРоІе:=тазРо1е2; 

//установить вид вселенной: 
иіРЬ Рогті сіо Ьедіп 
іР Р1аР=1 РЬеп Ьедіп 
зЬРИаР . боѵт : = Ргие; 
зЬРЗрЬеге.боѵт := Раізе 

епб 

еізе Ьедіп 

зЬРПаР . боѵт : = Раізе; 
зЬРЗрЬеге.боѵт := Ргие 
епб; 

//установить соседей : 
іР Зозе6Ш=1 

РЬеп зЬРЗозебШ . боѵт : = Ргие еізе зЬРЗозебШ . боѵт : = Раізе; 
іР 5озесЮ=1 

РЬеп зЬРЗозесЮ.боѵт : = Ргие еізе зЬРЗозесЮ.боѵт:= Раізе; 
іР Зозе6КИ=1 

РЬеп зЬРЗозесІІШ.боші:= Ргие еізе зЬРЗозесІІШ. боѵт : = Раізе; 
іР Зозе6Ь=1 

РЬеп зЬРЗозебЬ .боѵт : = Ргие еізе зЬРЗозебЬ.боѵт := Раізе; 
іР Зозе6К=1 








ббеп зЪбЗозесіК. сіоип: = бгие еізе зЪбЗозесІК. сіоип: = баізе; 
і б 5озесіЪ0=1 

бііеп зЪбЗозебЪО . сіоѵт : = бгие еізе зЪбЗозебЬБ . сіоѵт : = баізе; 
іб ЗозесШ=1 

■Ыіеп зЪбЗозесШ. сіоѵт : = бгие еізе зЪбЗозесШ . сіоѵт : = баізе; 
іб 5озесіК0=1 

■Ыіеп зЪбЗозесіКБ. сіоѵт : = бгие еізе зЪбЗозесИШ. сіоѵт : = баізе; 
//установить правило рождения клеток - 
//число соседей, необходимых для рождения: 
бог і:=0 бо 8 сіо 
іб ВігбЬ[і]=1 

бііеп (ГіпсІСотропепб ( ' зЪбВігбіі'+іпббозбг (і) ) аз 
ТЗреесіВиббоп) . сіоѵт : = бгие 

еізе (РіпсІСотропепб (' зЪбВігбЪ.' +іпббозбг (і) ) аз 
ТЗреесіВиббоп) .сіоѵт: = баізе; 

//установить правило выживания клеток - 
//число соседей, позволяющих продолжить жизнь: 
бог і:=0 бо 8 сіо 
іб Ьібе[і]=1 

бііеп (ГіпсІСотропепб ( ' зЬбЫбе '+іпббозбг (і) ) аз 
ТЗреесіВиббоп) .сіоѵт: = бгие 

еізе (ГіпсІСотропепб (' зЬбЫбе '+іпббозбг (і) ) аз 
ТЗреесіВиббоп) .сіоѵт: = баізе; 

//установить макс, возраст - 
//количество цветов, обозначающих возраст: 
бЬСоІог . розібіоп := Аде; 
бЬСоІогСбіапде (Зеіб) ; 

//установить шлейф - количество цветов, 

//обозначающих погибшие поколения: 
бЬЗЫеіб . розібіоп : =_зіі1еіб; 
бЬЗЫеібСЬапде (Зеіб) ; 

//установить задержку: 
бЬБеІау.розібіоп:= Беіау; 
бЬОеІауСЬапде(Зеіб); 
епсі; 
сіозе 
епсі; 


В этой процедуре копируется игровое поле и значение переменных игры, а 
также устанавливаются в нужное положение элементы управления 
главного окна приложения в соответствии с их значениями в момент 
сохранения файла на диске. 

Затем в заголовке окна выводится имя новой фигуры и другая 
информация: 


//показать в заголовке название выбранной фигуры: 

Еогті . сарбіоп := ЫАМЕ_РКОС + 1 [ ! + ЫатеЕід + ! ] ! ; 

//в информационной строке вывести число клеток в фигуре: 
збабизЪаг1. Рапеіз [1] .Еехб: = 1 Клеток: +іпббозбг ( ѵзедоК1_іпЕід) ; 
//скопировать комментарии к загруженной фигуре: 








іігтМето .тетоі. Ъіпез . ТехЪ : =ЪгтЪоасІ .тетоі. Ъіпез . ТехЪ; 
//поколение 0: 
пСеп :=0; 

зЪаЪизЪагІ. Рапеіз [ б ] . ЪехЪ : = 1 Поколение : 1 +іпЪЪозЪг (пСеп) ; 

ОиЪРоіе; 


Вы можете отредактировать фигуру, записать её на диск, изменить 
параметры игры и, наконец, запустить её эволюцию. 


Есть ли жизнь на Марсе... 
нет ли жизни на Марсе... 
это науке неизвестно! 

Комедия Карнавальная ночь 


А теперь вернёмся в основную программу, чтобы нажать кнопку зЬіЕхіі: 



(Ніп1:= Выход |Выход из программы), 


//КНОПКА Выход из программы 

ргосесіиге ТРогшІ . зЪЪЕхі-ЬСІіск (Зепсіег: ТОЬ^есЬ) ; 

Ьедіп 

сіозе 

епсі; 


чтобы закрыть её, а вместе с ней и последнюю страницу нашей книги о 
программировании игр и головоломок. 



Исходный код программы находится в папке ІЛРЕ. 







Факультатив 7. Бонусы, или Хитрая 
головоломка - хитори 


Седьмого факультативного занятия не было в исходной рукописи, но хи¬ 
тори - это моя любимая интеллектуальная забава, о которой я даже напи¬ 
сал книгу [РВ10]. Надеюсь, она не разочарует и вас: хитори - одна из самых 
популярных японских головоломок в мире и одна из немногих, которую 
интересно решать и с карандашом в руке. По «решабельности» она значи¬ 
тельно превосходит и пресловутое судоку, и какуро [лично для меня, как 
пел известный Перепелица). 

Игровое поле в хитори - всегда квадратное и имеет размеры от 4 х 4 до 17 х 
17 клеток (и даже больше). В каждой клетке записано число - от 1 до раз¬ 
мерности поля (то есть при размерах поля 9x9 клеток это будут числа от 
1 до 9, как в судоку). В некоторых строках и столбцах числа могут повто¬ 
ряться (Рис. 7.1). Таким образом, хитори - близкая родственница латин¬ 
ских квадратов, диаго и судоку. 
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Рис. 7.1. Нерешенная задача Решенная задача 

Цель решения хитори заключается в том, чтобы вычеркнуть повторяющи¬ 
еся числа (или, иначе, закрасить клетку черным цветом) так, чтобы в каж¬ 
дой строке и каждом столбце все числа остались в одиночестве (то есть не 
повторялись). При этом в процессе решения задачи должны соблюдаться 
правила. А правил всего три: 

Правило 1. Числа в белых клетках не должны повторяться ни в одной стро¬ 
ке и ни в одном столбце. Если в серых клетках числа повторяются, то часть 
из них должна быть вычеркнута, то есть клетка должна стать черной. 

Правило 2. Черные клетки не могут соприкасаться сторонами - только уг¬ 
лами. На Рис. 7.1, справа это условие соблюдается. 






































Правило 3. Белые клетки должны образовать связную область. Это значит, 
что из любой белой клетки должен существовать путь в любую другую бе¬ 
лую клетку, проходящий через стороны белых клеток. 

Чтобы различать клетки разного смысла, мы будем окрашивать их в раз¬ 
ные цвета. Серые клетки - неразгаданные. На Рис. 7.1, слева мы видим за¬ 
дачу в исходном состоянии, когда ни одна клетка не разгадана. 

Разгаданные клетки могут быть белыми и черными. В черных клетках 
находятся вычеркнутые числа, в белых - невычеркнутые, сохраненные. На 
Рис. 7.1, справа показана полностью решенная задача - все клетки белого и 
черного цвета. 

Программированию хитори я отвел целую главу в книге Как решать го¬ 
ловоломные задачи на компьютере. В ней я использовал язык Си-шарп, а 
нас сейчас куда больше интересует БеІрЫ. Но поскольку изначально про¬ 
грамма была написана на БеІрЬі и именно она хорошо показала себя при 
подготовке книги, то я хочу предложить вам две ее разновидности. Первая 
- гѵНііогі-ЗоІѵег - хорошо умеет решать задачи, но и только (Рис. 7.2). 


гѵНйогі-$оІѵег1.0 [ЕЛ_МР.МуВоок$\_2 РеІрНі в примерах, играх и программах [Наука и Техника 2011]\_... 



Рис. 7.2. гѵНііогі-ЗоІѵег решает задачу 




































































Вторая - гѵНііогі - не только решит предложенные ей задачи, но и помо¬ 
жет вам составлять свои собственные (Рис. 7.3)! 


т -щ- шшш - шшт . . . - - . - . - . — - ■ — . . . - . - - . — -ші 

гѵНііогі 2006 [ЕЛ _МР.МуВоокД_2 ОеІрЫ в примерах^ играх и программах [Наука и Техника 2011]\_Дополнительные главьЛЗоиг... 



Рис. 7.3. гѵНііогі умеет всё! 

Например, исключительно с помощью этой программы и были составлены 
все задачи для упомянутой выше добрым словом книги. А еще вы сможете 
решать задачи непосредственно в приложении, не отходя от кассы\ А 
также составлять задачи вручную, пользоваться подсказками и прочими 
благами цивилизации. 

В отличие от всех других «сольверов», программа гѵНііогі решает задачи не 
банальным перебором, а логически, то есть опираясь на статические и ди¬ 
намические приемы решения задач, которые ясно и подробно описаны в 
моей книге. На отдельной форме она ведет полный протокол решения за- 












































































































































































































































































дачи и указывает приемы, которые были использованы для нахождения 
цвета той или иной клетки поля (Рис. 7.4). 
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Рис. 7.4. Все ходызаписаны! 

Вы легко можете представить себе размер кода, который описывает почти 
два десятка приемов решения задач хитори. Поэтому я предоставляю вам 
в полное распоряжение исходный код обеих программ - с надеждой и ве¬ 
рой, что вы самостоятельно в нем разберетесь, потому что самостоятель¬ 
ность - самый лучший и правильный способ изучения программирования. 



Исходный код программ находится в папках _гѵНіІогі-5о1ѵегІШ 
и гѵНіІогі-5о1ѵегРго. 


























ОеІрИі в примерах, играх и программах 


ЕЫО.^или Карлсоны всегда возвращаются 

Шура, это конец! 
- Это конец первой серии, студент! 

Достойный ответ Остапа Бендера 
меланхоликам и пессимистам 

Сколько верёвочке ни виться, 
а конец будет. 

Уходя, гасите свет. 

Житейское 


Как известно, конец одного путешествия - это начало следующего! До 
новых приключений в стране ОеІрНіІ 

Вперёд - труба зовёт! 
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